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J^J X J 



A bord d'un hélicoptère 
perfectionné, vous devez 
détruire une base ennemie 
remplie de pièges. 
Seul contre vos adversaires, 
vous n'avez que de pauvres 
bombes (3) à opposer aux 
danger des installations 
souterraines. Votre 
carburant est limité et vous 
devez vous ravitailler en 
cours de route si vous 
voulez parcourir tous 
les tableaux. 



10 ENV 9,15.-1.6 

20 CLEARiON ERRDR BCTO 30:B0T0 50 

30 IF ERR=7 THE» GOTO i960 

40 PEN #2.2:PRINT 12. "ERREUR" :ERR: 




A LA LIGNE" ; ERL: STOP >CW 



50 M= 1 : NB=2 : NC=3 : ND=4 : NE=5: NF=6 

60 SC0RE!l)=20000:No*ii)="SEBAST":SCQRE(2)=15000:No$(2) 

="ALEX ":5C0REi3i=10750;No$i3)= I, LI0NEL":3CnREi4)=7B30: 

Not(4i="MARC":SC0RE(5i=5200:No*i5}="ERl(AN" 

70 ' ************************* 

30 ' * redéfinition symboles * 

90 ' h*********************** 

iOO SYMBOL AFTER 215 

110 SYMBOL 216,0,15,0,0,7,15,255.255 

120 SYMBOL 217,0.240,128,128,240,40,36,254 

130 SYMBOL 215,224,60,6,63,63,6,60,224 

140 SYMBOL 218,255,255,255,255,255,255,255,255 

150 SYMBOL 219,16,56,56,56,56,56,124,214 

160 SYMBOL 232,0 

170 SYMBOL 233,255,255,255,255.255,255,255,255 

180 SYMBOL 234,1,3,7,15,31,63,127,255 



>BV 
>XA. 



>LG 
>LH 

)i ï 

>PR 
>BV 
>HB 
>DF 
>MU 
>FE 
>SF 
>MU 



190 SYMBOi 

200 SYMBOL 236. 255, 127. 63,31. V 

210 



0.246. 252. 254.255 



240,240 



254.25 



4,192,128 
52.243,248 



SYMBOL 237.255.254.25: 

SYMBOL 239.255,255.2! 

SYMBOL 240.15.15.7,7.3.3,1,1 
SYMBOL 241,240,240,224,224, 192. 192. 128, 128 
SYMBOL 220,0,0.0,0.96.96.127.67 
SYMBOL 242,31.31,63,63.127,127.255.255 
SYMBOL 243 , 248 , 248, 252 , 252, 254 , 254, 255 . 255 
SYMBOL 244.1,1.3,3,7,7,15.15 
SYMBOL 245, 128, 128. 192, 192,224,224,240.240 
SYMBOL 246. 255, 255, 195, 195, 195, 255. 255. 255 
SYMBOL 255,0,126,126,126,126,126,126.0 
SYMBOL 238,255,255,127,127.63.63,31.31 
SYMBOL 221,0,63.0.0,7,15.255,255 
SYMBOL 249,1.3,7,15,31.63.127,255 
SYMBOL 250, 12B, 192,224,240, 248.252.254, 255 
SYMBOL 254. 0,16. 124, 254, 254. 124. 56. ié 



SYHBOL 
■ SYMBOL 

SYMBOL 
' SYMBOL 

SYMBOL 



.22.0,252,128,128,240.40.36.254 
123.61. 15,2.7 
24,254,252.8,252 
25.0,0,0,1 
26,0.0.0.0.96,0,100.67 



39i 

400 

410 

420 SYMBOL 227,0,53.0,0.5,8.213,134 

430 SYMBOL 228,0,220,128.0.208,40.4.166 

440 SYMBOL 229,0.0,0,0,64,0,36.65 

450 SYMBOL 241,240,240,224,224,192,192.128,128 

460 SYMBOL 251, 0,36,0,0, 4. 0,80,10 

470 SYMBOL 252,196,128,0,144,32,4.128 

480 SYMBOL 253.21,15,0.6 

490 SYMBOL 247.170.220,8,18» 

500 SYMBOL 248,0.5 

510 SYMBOL 231.32,72.0,164 

520 SYMBOL 230.0,32.48,31,48,32 

530 '##*#************ 

540 '* PRESENTATION * 

550 '#**********♦**** 

560 MODE isJNK O.lhINK 1,0: ÏNK 3.26:INK 2,6 

570 G0SUB 1670 

580 NINDDW #1.5. 21, 4, 16: PfiPER #I,1:CLS#1 

590 HINDOU #5,10,24,19.24:PAPER #5,i:CLS#5 

600 WIND0W #6,9,24, 18, 23: PAPER #6,0:CLS#6 

610 WIND0W #2.4,20,3,15:PAPER 12,0:032 

620 WINDOS #3,25,39,9.24:PAPER #3,1:0.513 

630 HINDOU t4,24,38,B,23:PAPER #4,0:CLS#4 

640 PEN #2,2:LDCATE #2,3,2:PRI«T#2,"C0PTERMIS5I0N" 

650 LOCATE #2,2,5: PRINT#2, CHRt (220} +CHR» Î221 ) +CHRÎ C 

660 LOCATE #2,2,6:PRINT#2," "+CHR$!223)+CHR*(224! 

670 LOCATE #2,3,2:PRINT#2.CHR*(22SCHR*!1):" 

_";CHR*C22)CHR*iO) 

680 PEN #2,1:L0CATE #2.6.4:PRINT#2,CHRtil64ii" 1988 
690 LOCATE #2.9, 6:PRIW#2, "PAR" 
700 LOCATE #2, 5,S:PRINT»2, "Sebastien" 
710 LOCATE #2,6,10:PRINT#2,"LECUYER":L0CATE #2,3,12 
^ NT#2, "*#***********" 



>MD 
>ML 



>MR 
>BP 



>MR 



>HF 

>HA 
>BÏ 
>CA 
>MD 
>SÛ 



>ZB 
>CG 

>RY 

m 
m 

m 

>rj 

>RK 
>TA 
>JH 
>BH 
>GE 
>JY 
>HK 
>G« 
>HJ 



>RK 



>VU 

>zx 

>JT 
PRI >AR 




PRINT#4 



'-'.'■ "s< 



iT#4 



:LOC 



/2ù "EN #4,2;L0CAÏE #4. 4.3: PRÏNT#4, " TOP 5" 

730 PEN #4.3:L0CATE #4. 2,5: PRÎNT#4.b!Q* inaï :L0CATE 14.8. 

5:FRINT#4,SC0RE(nai 

740 PEN #4.1: LOCATE #4. 2 . 6: PRÏNT#4. NOt ind ) ; LOCftTE (4.B. 

à:FRINT#4.SC0REinb) 

750 LOCATE t4,2.7:PRINT#4.N0*inci:LOLBTE «4.8 

.SCORE (ne) 

760 LOCATE #4,2.8:PRINT#4.ND$(nd>:L0CATE #4.6 

,SCORE(nd) 

770 LOCATE #4.2.9;PRINT#4,N0t(ne) :LOCATE #4.B.9:FR 

, SCORE (ne) 

780 PEN #6,1:L0CATE #û,2,2:PRINT#6, "Pour commencer 

ATE #4,2, 12;PRÏNT#4, "appuyez sur" 

790 PEN #6,2:LDCATE t6.4.4:PRINT #A. "PIRE": :PEN #6 

INT #6," ou"::PEN #6.2:RR1NT #6." COPY"iLOCATE #4. 

PRINT #4," (clavier) " 

800 BOTO 1780 

B!ù CALL &8B04 

820 «NDDN#5.3,36.3,24:FAFER #5,1:CLS#5 

830 kiIND0»6.2.35,2.23:PAPER #6,0:CLS#6 

B40 UNDCM SïlAP 0.6 

850 PEN 1: LOCATE 15,2:PRINT"B0NJOUR, ";FRINT 

860 PRINT" One base ennemie s'est installée" :FRINT 

870 PRINT" dans en ancien volcan dans le ":FRINT 

880 PRINT" désert. ils projettent de faire":PRINT 

890 PRINT" exploser la capitale avec une":PRINT 

900 PRINT" bombe nucléaire. Votre misson":PRINT 

910 PRINT'' est, si vous l 'accepter, de "rPRINX 

920 PRINT" détruire entièrement la base en":PRINT 

930 PRINT" taisant exploser leur propre":FRINT 

940 PRINT" bombe atomique, " 

950 CALL ,&EB06:CALL &BBÙ6 



960 !flNDD«#5,5,26,5,13:PAPER #5,3:CLS#5 

970 BINBO» 4,25,4, 12:PflPER lsPEN 3:CLS 

980 LOCATE 1,2 

990 PRINT" Pour cela. l'armée" 

1000 PRINT 

1010 PRINT" vous donnera le plus":PRINT 

1020 PRINT" perfectionne de ses ™ : PRINT 

1030 PRINT" hélicoptères. ":PRTNT 

1040 CALL 4BB04 

1050 PEN ktiINDQB 2, 35. 4. 23: PAPER 3:CLS 

1060 LOCATE 1,3 

1070 PRINT" Cependant vous ne disposerez que":PRINT 

iOSO PRINT" de 3 bombes et d'une reserye":PRlNT 

1090 PRINT" limitée en carburant. ": PRINT 

1100 PRINT" C'est pourquoi il vous faudra"; PRINT 

1110 PRINT" détruire toutes instaiations":PRINT 

1120 PRINT" ennemies pour récupérer fuel et":PRINT 

1130 PRINT" armement afin d'arriver au":PRINT 

1140 PRINT" centre de la base ou se trouve";PRINT 

1150 PRINT" la bombe." 

1160 CALL 4BB06 

1170 PEN 3:PAPER i:PAPER #5,2: WIND0W#5. 5.32,4, 14:CL8#5: 

HINDDH 4.31,3,13:CLS 

1180 LOCATE 5,2:PRINT" Nais attention! ":PRINT 



>8E 

>DT 
>VA 



>m 
m 

>D6 
>TF 
>ER 
>Hï 
>JB 
>CH 
>FV 
>UY 
>UB 



' 1190 PRINT" Si vous êtes capturer !l ;?RINT 

1200 PRINT" le gouvernement niera ":PRINT 

1210 PRINT" avoir pris connaissance":PRINT 

1220 PRINT" de vos agissement, " 

1230 CALL IBfiOè 

1240 PEN 3:PAPER i:«IND0U#5,5,32,17.23;CLSÏ5 / 

1250 WINDOS 4,3I.I6,22:CLS 

1260 LOCATE 1,2 
^1270 PRINT" Ce n'est pas une mission";PRINT 

1280 PRINT" impossible mais presque. ":PRINT 

1290 PRINT" BONNE CHANCE!" 

1300 CALL IBBÛé 

1310 PEN IjBINDOW 2,35,4,23 

1320 PAPER 3:CLS 

1330 LOCATE 1.2 

1340 PRINT " TABLEAU 1":PRINT 

1350 PRINT" Vous devrez tirer 4 fois sur ie":PRINT 
1360 PRINT" faisceau lumineux .jaune puis":PRINT 

1370 PRINT" entrer dans le volcan. ".-PRINT 



1390 PRINT " ";CHR$(21?);"= Donne 70 L d 

1400 PRINT " ";CHR*(24ti : "= Donne 10 L de 

des" 

1410 PRINT 

1420 PRINT 

1430 PRINT 

S NUCLEAIRE 

1440 CALL 4BB06 

1450 PEN 3:PAPER liPAPER #6.1 

1460 «INB0!#5,6,35,8,i4:CL3#5:t«NDDU 5.34,7.13 
10 :":PRINT 
murs":PRINT 



RAVITAILL = RAVITAILLEMENT F+B":PRINT 
" : CHRt (233) +CHR* (233) +CHfi$ (233) 
" ;CHRï (233)+CHR*i233)+CHR$ (233) : " = î 



ONBE 



LS 



1470 LOCATE 6.2:PRIMT" TABLEAU 6 h 

1480 PRINT" zone non éclairée. Les 

1490 PRINT" sont invisibles." 

1500 CALL 1BB06 

1510 PEN 3:PfiPER 2 

1520 MNDBW#6,4,37,5,22:CLS#6 

1530 HINDOU 3.36,4,21:CLS 

1540 LOCATE 1.2 

1550 PRINT" TABLEAU 12 : Apres avoir amorce":PRINT 

1560 PRINT" la bombe atomique en lui tirant":PRINT 

1570 PRINT" une bombe, vous avez 135 seconde»; PRINT 

1580 PRINT" pour sortir du volcan avant":FRINT 

1590 PRINT" son explosion finale. ":PRINT 

1600 PRINT" TOUCHE POUR JOUER AU CLAVIER": PRINT 

1610 PRINT" C0py=FIRE F=BALCHE B=DR0I TE": PRINT 

1620 PRINT" E=HAUT D=BAS" : PRINT 

1630 PRINT" CHANGEMENT D'ARME = B.ESPACE" 

1640 CALL Ï-BBÛ6 

1650 HINDOW SliAP 0,6:0.3 

1660 BOTO 2790 

1670 ' 

1680 PAPER 3.-CLS 

1690 FOR i=20 TO 640 STEP 20 

1700 PLOT 1,0,0 

1710 DRANR 0,400 

1720 NEXT 



>«N 
>3F 



>CH 
>HH 



>LV 
>UE 
>TV 
>NJ 

>YE 



>WB 

>CF 




1730 FOR 1=390 TD 6 STEP -20 ' u * 

1740 PLOT O.i.O >* 

1750 DRAWR 640,0 >H 

1760 NEXT >LF 

1770 RETURN > F - 

1780 '****** msic ******** - ; '*-- 

1790 '* d'après le feuilleton supercoptere * 
1600 ENV 1,10.0,1.1.-6,1,4,0,1 :> » : 

18-10 FOR j=l TO 3;RE3T0RE 1880:FOR 1=1 7D 12:READ n:3Q /tf 
UND i.n,15.14.14:S0UNB 2, n+i. 15,!4:S0UND 4,n*2. 15, 14, 1: 
NEXT i,i 

1020 dd=l * c 

1830 READ en. dd:IF dd=-l THEN RESTORE 1B90:B0TD 1820 >W 
1840 d=dd*15:IF INKEY(7è)=0 THEN Ti=74:T2=75:T3=72:T4=7 « 
3:T5=76:S0T0 820 ELSE IF INKEYC9)=0 THEN Ti=53: T2=52:T3 
=5B:T4=61;T5=9:60TD 820 

1850 IF c=2 THEN SOUND en, d, 14.1 ELSE SOUND c.n,d.i3 >v 
1860 GOTO 1830 '<" 

1B70 ' >'' 

1880 DATA 534,358, 301. 2-58,225,301, 268,358.301, 402,358,3 }\ 
01 

1890 DATA 1,268, 3,2,536, ,2,358, ,2,301, ,1,201, 1,2,268,,! H 
,179. 1.2.225,, 1,150, 1,2. 301,, 1,134, 3,2, 268,. 2,358,, 2,30 
!,. 1,113. 1,2, 402,, 1,119. 1.2, 358,, 1,150, 1.2, 301., 1,134. 3 
,2,536,, 2,358,. 2, 301.. 1.113, 1,2. 268,. 1.119, 1,2. 255,. 1,1 
50,1,2,301, 

1900 DATA 1,134, 3,2, 268, ,2, 358, .2. 301, ,2,358, ,1,119, 1,2 >1 
. 301,. i, 179, 3, 2, 536., 2.358,, 2, 301,, 1,201. 3.2, 268,, 2, 225 
,,2,301, ,1,225,2,2, 268,1,2.358,. 1,201, 1,2.301,. 1,239,2, 
2. 402., 2, 358, ,1,301, 1,2,301, 

1910 DATA !,268,3,2,536,,2,358., 2,301, .1,201, 1,2.268.,! > ; 
.179, 1,2, 225,, 1,150. 1,2. 301,, 1,134, 3, 2,268,, 2,358,, 2,30 
!.. 1.113, 1,2. 402,, 1.119, 1,2,358,, 1,150, 1,2,301,, 1,134, 3 
,2,534,, 2,358,1, 2,301,, 1,113,1,2,268,, 1,119.1, 2,225,. 1, 
150.1,2.301, 

1920 DATA 1.113,3,2, 179,, 2,253,, 2,225, ,1,127, 2,2,338,, 2 > 
.301, ,1,100,1, 2.253,, 1,150.3,2,451, ,2,301, ,2,253,, 1,169 
.3 2,225 ,2 169, 1,2, 225, ,1,179. 2, 2, 179, ,2, 253, ,1.150.1. 
2,225,. 1,201, 2, 2,338,. 2. 301,, 1,253, 1,2, 253. 
1930 DATA 1,225, 3,2, 451, ,2,301, ,2,253,, 1,169, 1,2,225.,! ) 
,150. 1,2, 169,, 1,127, 1,2, 225,, 1,113, 3,2, 179,, 2. 253,, 2,22 
5,, 1,84, 1,2, 338,, 1,89, 1,2, 301,, 1.127, 1,2. 253,, 1,113,3,2 
,451,, 2.3U1,, 2. 253,. 1,84, 1,2, 225,, 1,89, 1,2. 169,, 1.127,1 

1940 DATA 1,113,3, 2, 179, ,2, 253, ,2, 225, ,1,63, 1,2,338,',!, : 

67, 1.2.301, ,1.84,1, 2.253,, 1,75, 12,2,451,, 2,301,^2,253,, 

2, 225,, 2, 169, 1,2, 225,, 2, 179,, 2,253,, 2, 225. 1,2, 338,, 2,30 

1,, 2,253, 

195« DATA 1,1,-1 

i960 ' ****************** 

1970 ' * PR06. PRINCIPAL * 

1980 ' ****************** 

1990 TA6:il=u-17:FUEL=FUEL-l 

2000 îi=s+1:M0VE ;;,y:PRINT " ";:HDVE s,y-I5:PRINT " 

2010 IF INKEY(Tl)=0 THEN X=X-i:FUEL=FUEL-4 ELSE IF INKE 



2020 IF ÏNKEYi47)=0 AND TIR=1 THEN LOCATE #2.31.3: PRINT >VE 
#2," BOMBES ":TIR=2 ELSE IF INKEYi47)=0 AND TIR=2 THEN 
PEN I2,0:L0CATE #2,3!,3:PRINT ti2. "MISSILES" : TIR=i :PEN 
12,1 

2030 IF INKEYu4>=0 THEN Y=Y-8 ELSE IF INKEY!T3)=0 THEN >FD 
Y=Y+8 

2040 MOVE X.Y,3:PRINT :a$ii1i : :M4M; IF M=3 THEN M=! >UR 

2050 NOVE M6.Y-15:PRINT ftSilO); >A8 

2060 IF INKEïiT5)=0 AND BOMBES» AND TIR=2 AND larae=0 >AN 
THEN BONBES=BONBES-!:SOUND 2.50, 100, 1 , 9, ,5: BOSUB 2370 
2070 IF INKEYiT5;=0 AND BOMBESXi AND TIfi=l AND !arqe=0 >AE 
THEN BQMBES=BOMBES-I: SOUND 2,12,100,1.9, . 1 : EOSUB 2440 
2080 IF y<50 AND TABL=2 THEN 3140 ELSE IF »630 THEN ON >KJ 
tabl BOTO 1990,3140.3220,3280,3380,3460.3570,3680.3800 
,3850,3960,4070,3220 

2090 IF tabl=13 AND y>335 THEN 4120 ELSE IF tabi=!4 AND >YU 
y>335 THEN 4170 ELSE IF tabl=lû OR tabl=ë THEN INK 2.0 
,1:SPEED INK 7,200 

2100 ENV 6.1,10.I,10.-!,i:S0UND 1,1000.-4,0,6.0,3! >Q0 

2110 IF tabl=4 OR tabî=7 OR tab!=li THEN j £=j i-15: MOME >FN 
«i,ji*32,l;PRINT " "::BOVE xji.ji:PRINT CHR$Ï254);:M0V 
E ;iji,ji+16:PRINT CHRti254) ::HOvE >:ji, ji-16:PRINT CHRSi 
254!: 

2120 IF jKsji THEN HOVE iiji, ]i:PRÏNT " : ;:«OVE k.îi, .:i- >TK 
!6:FRINT " ";:MOVE xji, ji+16:PRINT " ";:ji=yii 
2130 IF TABL=8 THEN NOVE 294. 142, 3:PRINT "RfiVITAILL"; : I >«P 
F TESTî360,lB0i=3 AND 2<>5 THEN 4220 

2140 PLOT u.h,3:DRAHR 7,1:DRAHR 35, 1.0: IF u<ub THEN MOV >CD 
E u,h,û:DRA«R 6, l:u=ua 

2150 LOCATE I2,7,3:PRINT I2.SC: :LOCATE #2,S.1:PRINT #2, >JN 
BOMBES; : LOCATE #2,22, hPRINT #2,FUEL: ,i L ": 
2160 IF 2=7 THEN LOCATE #3,4,25:PRINT #3. "BOMBE AMORCE >AC 
TEMPS AV. IMPACT: ";SEC:sec=sec-i:SOUNB 4,501,2, 15: IF T 
ABL015 THEN INK 1,1,11: INK 2,7,B:SPEED INK 20,20 
2170 IF sec=0 AND TABLOIS THEN ËOSUB 2300:sec=140:tabi >NV 
=U:60T0 3960 ELSE IF SEC=0 AND TABL=15 THEN 4400 
21B0 IF xb>K+!60 OR yb<y-90 OR ;;b>630 OR yb<40 THEN lar >JN 
fl==0:MOVE ïb.yb:PRINT" ": ELSE IF Iarne=i THEN GOSUB 23 
90 ELSE IF LARSE=2 THEN BOSUB 2470 

2190 IF TEST(c+24,t-4i=3 OR TESTÎct24, t-3i=3 OR TESTirt >«R 
24,t-6!=3 THEN BOSUB 2300:2=xs:y=yy 

2200 LOCATE #2,21,3: PRINT #2,VIE;:PL0T -2,1,3 >»X 

2210 IF i=2 OR TABL>2 AND tablOS AND tabI014 THEN MOV >JH 
E c,t:PRINT " "+CHR$i215S::c=c+25: IF c>ac THEN MOVE c+ 
7,t:PRINT " »::c=bc 

2220 IF t;iël<=0 THEN BOSUB 44S0 >YB 

2230 IF z=2 AND TEST u+4, y-34) =2 THEN 3060 >HG 

2240 IF ;:>2 AND iTEST(s-l,y-14SO0 OR TE5TIx+25,y-32K> >XR 
OR TEST(s+4B,y-14!O0 OR TESTIx-t, v-i2K>0 OR TESTist 
40,y-32)<>0 OR TEST(s+25,y+2K>0! THEN GOSUB 2300:x=x«: 

y=yy 

2250 IF TE5T!u-l,h-2)=3 OR TEST iu-l.h+2i =3 OR TESTiu-1, >TY 
h+3i=3 THEN GOSUB 2300:>;=3s:y=yy 

2260 BOTO 1990 >NG 

A 2270 ' ************* >YD 



5 

■M 



2230 ' * explosion * 
2290 : ************* 

2300 FOR q=2100 TO 100 STEP -20:S0UND 2, a,2,q/150, , ,30: 
NEXTîFDR A=l TO 3:M0VE K,y:PRINT d*(Ai;:MOVE >;,y-15:PRI 
NT w*!A!;:FOR k=l TO 175:NEXT:NEXT 
2310 VIE=VIE-1 : LftRBE=0: MOVE XB,YB:PRINT " ";:IF FUEL<60 
THEN FUEL=320 ELSE IF bo«bes=0 THEN bo«bes=2 
2320 IF VIE<=0 THEN nf=nfH:BOTQ 4310 
2330 RETURN 

2340 ' ***************** 
2350 ' * BOMBE LARGUEE * 
2360 ' ***************** 
2370 laree=l : XB=X+B: YB=¥-16 
2380 XB=X+S:YB=Y-16 
2390 MOVE XB,YB:PRM" ": 
2400 YB=YB-12:XB=XB+6 

2410 IF TEST(XB+16,YB-16)=1 OR TEST(X8+B,YB-16!=i THEN 
25B0 ELBE IF TEST (XB+16, YB-14) =2 DR TESTSXB+S,YB-!6)=2 
THEN 2570 ELBE IF TABD2 AND(TESTiXB+16,YB-16)=3 OR TES 
TÎXB+B,ïB-16!=3) THEN 2600 
2420 MDVE XB,YB,3:PRINT BB*;:RETURN 
2430 ' ********************* 
2440 ' * BOMBE LARGUEE No2 * 
2450 ' ********************* 
2460 large=2:XB=X+46:YB=ï-6 
2470 HOVE XB,YB:PRINT" "; 
24B0 XB=XB+16 

2490 IF TEST(XB+17,YB-5Î=2 OR TEST!XB+17,YB-3)=2 THEN 2 
570 ELSE IF TABL=1 ftND (TEST(XB+17,YB-14)=1 BR TEBT!XB+ 
17,YB~6i=l)THEN BN=BN+1:G0T0 25B0 ELSE IF TEST (XB+17.YE 
-4!=1 OR TESTiXB+17,YB-6!=l THEN 2580 
2500 IF TABL>2 AND!TEST(XB+17,YB-6)=3 OR TESTIXB+17,YB- 
81=3) THEN 2600 



2510 MOVE XB,YB,3;PRINT BB*;;RETURN 
2520 ' **************** 
2530 ' * BOMBE ECLATE * 
2540 ' **************** 

2550 ' 

2560 SOUND 4,3000,20, 12, 1 , 1,6: 2=2: HOVE 230, 172,0: DRAW 2 

30, 182: DRAW 375, 182: DRAW 375, 172: sc=sc+300: large=0: tuel 

=fuei+10:boubes=bo«ibB5+2:B0TD 2260 

2570 SOUND 4, 1000,20, 12,1,1, 6:LARGE=Û:M0VE sb-7,yb:PRIN 

T" ";:MQVE sb-7,yb-4:PRINT " ";:EOTD 2260 

2580 SOUND 4,2000,40,12,1, l,20:large=0:M0VE xb-7,yb:F'RI 

NT " ";:MOVE xb-7,yb-5: PRINT " "; 

2590 IF BN=4 THEN BN=û:GOTO 2560 ELSE sc=sc+300iUrge=0 

:-fuel=fuel+10:IF bonbes<15 THEN bo»bes=boibe5+2:G0T0 22 

60 ELSE GOTO 2260 

2600 SOUND 4,2000,40, 12,1, 1,20: larqe=0;MOVE sb-7,yb:FRI 

NT " ";:MOVE xb-7,yb-5: PRINT " "::5c=5t+500:lar-ge=0:f 

uel=FueH70 

2610 IF tabl=12 THEN z=7:G0TO 2260 ELSE BOTO 2260 

2620 ' ****************************** 

2630 '* MISE EN PLACE DES TABLEAUX * 

2640 ' ****************************** 

2650 LARGE=0:yb=-20:5c=sc+100:F0R f=4 TO 24-.FDR g=l TO 



40:RE-2 datas,nofflbres 
2660 PEN 2 
2670 LOCATE g,f 

2680 IF datas>13 THEN PEN 1: IF datas=23 THE". '--- '.:.-'. - 
ATAS>40 THEN PEN 1 

2690 IF data5=-13 OR DATAs=-14 THEN PEN 3 
27C-Ô PRINT STRIN6* (nombres, datas+232) 
2710 g=g+NOMBRES-l 
2720 NEXT:NEXT:tabi=tabï+l 

2730 PAPER #2,3;WIND0W #2,1,40, 1,3: PAPER 3:F>PB E.Zîl i 
INDOW #3,1,40,25,25 

2740 PL8T 1,340,1: DRAW 639,340;PL0T 639,1=;". : - . .: ''- 
VE 1,390:FILL 3:PEN hLOCATE 1,3:PPJNT "SCORE LHSH 
1.1: PRINT "BOMBES:" 

2750 PEN 2:L0CATE 17,!:PRINT "FUEL:":PEN *:, JES7E E - 
,15,25:PRINT #3, "TABLEAU N.";TABL 

2760 LOCATE 17, 3:PRINT "VIE: ":LOCATE 33, U"'-' w Dl 
PEU 0: LOCATE 31,3:PRINT "MISSILES" :tir=l 
2770 MOVE 470,376:DRAW è30,37à:DRAW 630.: r =:: ;1 . -" " ~-~ 
9:DRAW 470,347:DRAW 630,347:DRAW 630.399 
2780 TAG: RETURN 
2790 ' ************* 
2800 ' * TABLEAU 1 * 

2810 ' ************* - 

2820 ac=420:bc=-24:sc=0:v=0:BN=0:i=0:X=::-=:: "-'.- = FS 
200:sb=0:yb=0:sec=135 

2B30 h=182:u3=200:ub=-li:u='ua:«=!:yy-y;:-H = :- :; " :: : - 
Bbe5=3:VIE=7:TIR =1 :Puei=320 

2B40 A*<1)=CHR*(220)+CHR$(22!!+CHR»(222}:A1 I =GSJ 22 RZ 
)+CHR*(216!+CHRI(217):A!t!10!=CHRti223!+CHRS 22! 
2B50 d*(l)=CHRJi226!+CHRti227!+CHRt(228:::î ; =OH 12= - 
)+CHR*(251)+CHR*!252!:d$i3i=" " 

2860 w*U)=" "+CHRt(253)+CHRt(247]:atî2)=" '-'- '.-': - :r 
:>EG CHR*(231):»*<3)=" " 
>YB 2870 TABL=1 

>YC 2880 MODE 1:B0RDER O-.INK 0,11:INK 1,24:1» 2,15s 
)YD :PAPER 3 
>YE 2B90 PEN 5 

2900 GRAPHICS PAPER 

2910 MOVE 230, 172,1: DRAW 230,lB2:DRAis ~~l.:li: z 
172" 
-KM 2920 MOVE 1,1: DRAW 0,20,!:DRAW 639,2G:DR» :. : 

2930 MOVE 10, IOîFILL' 1 
m 2940 MOVE 130,20,2:BRAW 190,90:DRAW 22v.1=î:ïh« 


;r 2950 DRAW 280,160:DRAW 290,164:DRAsi 380.17C 
2960 DRAW 400,80:DRAW 450,20 
2970 MOVE 130,20,2:DRAW 450,20:HOVE 200.3ftFIli 
2980 MOVE 3B0,20:BRAW 50Û,125:DRA* zV., :'.ï:'.-^ 
DRAW 450,20:M0VE 600, 30: FUI 2 
2990 MOVE 639,20,1:DRAW 62Û,30:DRh- b00,Z5:»* 
DRAW 580,20:DRAW 639,20:M0VE 63û,23:FIli : 
YC 3000 MOVE 140,20, 2:DRAW 1,90:MjVE 140.20:DRfll 1. 
YD 2,20:FILL 2 

>YE 3010 MOVE 3B0, 20, 1: DRAW 400,35:DRAH 4::.2î:: : -- -11.-1: 
± DRAW 440,23:DRAW 465,20:DRAW 380,20:M0VÏ *»,Z3:FI1± 1 



:-=; 



YD 



L« 



ïE >LZ 



3020 BOSUB 2730: BOTO 1990 

3030 ' ************* >XJ 

3040 ' * TABLEAU 2 * >XK 

3050 ' ************* >YA 

3060 CLG:MODE 1:INK 0,22:INK 3,2:INK 1,6:1»: 2,0:6RAPM >6U 

CS PAPER 0:RESTDRE 3080: PAPER 0: BOSUB 2630 

3070 SYMBOL 215,128, 196, 230, 255, 230, 196,128: 2=0:Y=320:x >XT 

=260:>:ï=x:yy=y:H=150:U=37û:UA=u:UB=285:S0TO 1990 

3080 DATA 1, 16,5, 1,4, 1, 0,5, 1 , 17, 1 , 15,5, 1 , 0, 7, I, 17, 1 , 15, >EF 

0,7,2, 1, 1, 17, 1,15,0,7,1, 1B, 1,15,3, 1,2,1.3. 1,0,4,4,1, 1,1 

7, 1,18,0,7,1,15, 1,18,0, 7, 5, 1,4, 1,1, 13, 1,19, 3, 1,0, 6, 2,1, 

1, 13,1,20,0,6,1,14, 1, 19,5, 1,0,7, 1,13, 1,18,5,1,0,7,2,1, 1 

,13,1,17,5,1,0,6,2,1,1,15 

3090 DATA 1, 17,0,7, 14,5, 1, !!, 1,16,5,1,0,7,4,1, 1, 15,1,16 ?LD 

,3, 1,0,9, 4, 1,1, 13, 1,17, 3, 1,0, 9, 4, 1,1, 12, 1,18, 3, 1.0, 9, 2, 

1,1, 11, 1,19, 3, 1,0, 7,2, 1,1, 12, 1,19, 3, 1,0, 6, 2, 1,1,13,1,13 

,3,), 0,6,2, 1,1, 14,1, 19,0, 6.1, 15 

3100 SYMBOL 215,4,206,123,51,123,206,4,0 • >FJ 

3110 ' ************* >);H 

3120 ' * TABLEAU 3 * >XJ 

3130 ' ************* >XK 

3140 CLBiMODE 1:PAPER 0:INK 3,0: INK 1,2: M 2,B:INK 0.1 >BF 

5:BRAPHICS PAPER : RESTORE 3160:G0SUB 2630 

3J50 Z=0:¥=320:H=2B0:L!=25Û:Ufl=U:UB=133:x=155:T=e2:>";=::: >Y0 

y=yy: ac=640: C=4B0: bc=C: BOTO 1990 

3160 DATA 1,9,0, 4, 1,27,1, 9,0, 4, 1,27,1, 9, 0,4, 4, 1,1, 1,5,1 >NU 

,0,1. 4, 1,1, 22, 0,1, 4, 1,1, 6,5, 1.0. 4, 2, !,!.!, 3, 1,0, 5,B,L? 

,1,8, 1,1, 16, 0,2,4, 1,1, 5, 0,16. 4, 1,1, 15,0. 4, 4, 1,1, 2, 5, 1.0 

,17,23, 1,0, 1,4,1, 1,1, 5,1,0,2,1,8 . ^M 



K 4 3220 CL6:M0DE hPAPER 0:11* 3,0: INK 1,2:INI( 2,6;INK 0,2 
4: GRAPHICS PAPER :RESTORE 3250: BOSUB 2630 
3230 SYMBOL 215,128, 252, 170, 171, 171, 170. 252, 12B:tabl=4 

3240 ji=190:yii=ji::;ji=350:5ji=120:Y=80:s=l:H=90:U=100; 

UA4J: LIB=-16:T=220: ac=250:C=80:br=C: ks=s: yy=y: Z=0: BOTO ! 

990 

3250 DATA 1,22,0,4,1, 14,1,13,5, 1,0,2,4,1, 1,2,5,1,0,1,4, 

1,0, 4, 1,14, 1,11, 5, 1,0, 14, 4, 1,1, 13, 1,9, 5, 1.0, 17, 1,13, 1,7 

,7, 1,0, 13,2,1,1,13, 1,7, 11, 1,0, 18, 1,14, 1,6, 5, 1,0, 16, -13, 

1.0, 2, 1,14, 1,5,0, 14, 2, 1,1, 1,14, 5, 1,14, 14,5,0, 13,2, 1,1, 2 

,14,5,1,14 

3260 DATA 1,4,3, 1,0, 13,4, 1,5,1,0,8,4,1, 1,2,5,1,6,1,9,1, 

4, l,i,5, 1,5, 3, 1,0, 23, 1,1, 5, 1,0, 4,4, 1,1, 4, 1,6,0,30,4,1,1 

,1,5, 1,0, 1,1, 6,0, 34, 1,5,5, 1,0,25,2, 1,3. 1,0,7, 1.5,0,20,1 

4,1,0,4,2,1,1,2,0,7 

3270 DATA 4, 1,1,3,5, 1,0,20,14, 1,0,3, 1,4,3,1,2,1,1,2,3,! 

,0,1,2, 1,0,23,17,1,14,4, 18, 1,1, U,O.È, 14,2.0,7, 14, 1,0,5 

,2,1,1,18,0,6,14,2,0,7,14,1,0,5,1,19,0,6,14,5,0,2,17,1, 

14,3,18,1,0,2,2, 1,1, 19, 1,40 

3280 ' ************* 

3290 ' * TABLEAU 5 * 

3300 ' ************* 

3310 RESTORE 3330 :MODE 1:CLB:PAPER 0: INK 0,22: IMK 3,2: 

M 1,6: INK 2,0:GRAPHICS PAPER 0:60SUB 2630 








^Mo t 



t 



^* 



3170 DATA 0,25,23,1,0,10,1,4,0,25,23,1,0,10,1,4,1,1,13, >YJ 

1,0,23,23,1,0,9,2,1,1,4,1,4,3,1,0,18,2,1,1,3,3,1,0,1,12 

,1,1,1,0,4,1,5, 1,4,5, 1,0, 1B,4, 1,1,6,5, 1,0,4, 1.5, 1,4,0,2 

0, i, 6,0,5,4, 1, 1, 4, 1,4, 13, 1,0,6, -13, i, 0,12, 4, 1,1,5, 0,5,1 

0,1,1,4 

3180 DATA 1,5,3,1,0,3,14,5,0,6,-13,1,0,4,1,5,0,4,2,1,1, >i!S 

5,1,5,7,1,0,3,14,5,0,4,14,5,0,2,4,1,1,4,0,4,1,6,1,5,11, 

1,0,2,14,7,0,2,14,7,0,2,1,4,0,4,1,2,5,1,0,3,1,29,5,1,0, 

10,1, 24, 14,5,0, il, 1,30,3, 1,0,9, 1,32,3, 1,0,7, 1,40, 1,40 

3190 ' ************* >YF 

3200 ' * TABLEAU 4 * >XH 

3210 ' ************* 



3320 Y=lB5:x=l:sK=s:yy=y:H=lB0:U=335:UA=u:UB=255:G0T0 1 

990 

3330 DATA 1,40, 1,12,0, 15,4, 1,1, 2,5,1, 0,7,1, 2,1, 12,0, là, 

4,1,5,1,0,8,1,2,1,12,3,1,0,25,1,2,1,13,3,1,0,5,3,1,0,2, 

-12,1,-11,1,-10,1,0,13,1,2,1,14,13,1,0,4,1,1,0,3,-9,1,- 

8,1,0,8,12,1,0,4,4,1,1,1 

3340 DATA 1,14,11,1,0,4,1,1,0,2,14,3,0,3,14,2,0,3,10,1, 

0,5,1,1,1, 15,0,4,1,1,0, 1, 17, 1,14,3,18, 1,0,1,17, 1, 14,2, 1 

B, 1,2, 1,1, 1,7, 1,0,4, 12, 1,1,1,0,4,4, 1,1,10,0,4,6, 1,1, 13, 

9,1,0,4,10,1,1,1 

3350 DATA 0,5,23,4,0,4,4,1,1,1,13,1,0,4,4,1,1,11,5,1,0, 



XJ ▼ 4,12,1,1,2,0,5,23,4,0,5,1,1,11,1,0,5,1,10,5,1,0,5,10,1, 







735''' *++****?*•**-, 

:-:■:■ aG:icDE ::fspep :: : E:"CfE ::;: ; ::v ; 3,E:.m i .24: i 

W l.lilW 0.0:6FAfHI2S FAFËR 0:30rOF 263C 

3430 ' ************* 
344V • « TABLEAU 7 * 
3450 ************* 
34c.; OlS^ODE ::F0FES 0:RES"0RE 3490s I* 7..::. ; :,!":: 

ni ?.;:;;»: l\6;Grapb:cs fafef- oitasite 3630 

747; SrHtJL 2i5,224;60.6,63;i3!6.60.224 



34=0 DATA 1. 






3510 DATA 0; 5 . 23 , 2: . Û. 4. i , 2. Û, 4, 1 ; 3, ).3i. 1.2.0.4, 1.3. 3, 
332: M T A !.:.:0.:.0.13.14.2. ;.!6.:.3.1.5,;:.:.0.4,!4,2 

!.:4,4.!9,:.o.:,r.i.:4.i. ie.i. 0.3. îo.i.:. 4,:;. ;. o.;,2. 
:.!. 4.1.40.:. 40 

73": NDVE lS.lOsFItt 2 

3540 ************< 

3350' ' » TABLEAU S » 

7360 ' ************* 

35 7 CtGIKODE !:FAPER 0:RE3TGRE 3590: INK 3.0:1*. 1.25:; 

NI 2.7:1» 0.13;SRAPKIC5 PftPEF. 0:6BS0B 263Q 

3580 i=22c:-=l:':;=:::yv=^:H=260:Lj=4ic:UA=u:jB=33t>:T=2fci: 

àc = l : !3:C=64:bc=C:60"û 1990 

3590 DATA 1. 40. 1.4.5. 1.0.3.4. i. 1.2.3. i. 0.25. 6. 1. 1.2. 1.3 

. 7 .:, 0,73. s.;, i.2.;. 3. =.i.o. 34. :.:.i, 7. 3.:. o.!3.;. m, 2 

,3,1,0.6,2. 1,3,1.0,1,2.1,1.2, 13 ji- ,"0,4,1, 2 

3600 DATA 14, 4. 0,11, 1.3. 3.1.0.6.14. 1.1. 5. 11, 1.0. 4, 1.2,0 

, i 4, 12. 1. 1. 5, 0,c,c, 1.1, t, 7. 1,^,4.6,1, 1.1. 0,14,10.1. 1.3, 

0,6,8,1, 1,6. 9,1, 0,4,8,1,1,1 

3610 DATA 0.10. 12, 1.1. 3. 7. 1.0,7. 1.6, 0.5,23. 2, 0,10.10.1. 

1.3. 9.1. 0.s, 12. 1.1. 3.0,5, 27. 3. 13. 1.0, M. 7. 14. 2.0, 7, 10. 

1.1.5,7.1.0,5.23.; 

3620 DATA 11,1,0.9,1,7.14,2.0,7,14.2,1.4.9.1,0.5.23.2,: 

. 1. 0, 9. 6, l,i. 6. 14. 11, 1.3. 7, 1,0,5, 2. 1.1, 2 



7630 ÏL5:i103t 1;?AFEF ' ; 
3690 2 V M57-L l.'.ll:.":. 



.=.0.4.:. 4 



37.-0 ************** 

3730 ' * TASLEAii 10 » 

3790 ' ************** 

3800 CLG:>0£€ 1:FAPER 0:F£3TGRE 35=' 

!* 2.1:;l« O,0:GRAPHICS PhFER 0:003 

àc=l?6:C=ô4:bc=C:GÛ7G 1990 

3820 ' ************** 

3630 ' » TABLEAU 1! ♦ 

3340 ************** 

3850 CLB:HODE ItFAPER 0:RESTORE 33" 

K 2,5::»: 0. 19:GRAPHICS FAFER : 2-26. 

3360 :\;:=370: ji=286:'yo;=J!:sji=2"K : 

H=500:T=190:ac=3)6:CTl75:bc=c:GDTC 

3870 DATA 1,40.1,40,1,22.14,4,1. i4,< 

,4;i, 1,13.0.4,6,1, 1,8,0, 17, 1.3,0,7, 

3880 DATA 0,5,4. 1,1.5,9. 1,0,18,1,3,* 

0,19.:, 3. 13. 1,0. 1.12. 1.1. 3.3. :.:.;, 

1,1.2.11,1,0,1,10,1,1,4 

3E90 DATA 1,2,0.4.6. 1, 1.4. 11. :,. :E. 

3,3. 1,1, 2. 14. 2, 0.11. 17. 1.14,1. 15.1. 

.1,5, 0.9. 17. 1,14. 3.13.1.0.5.1,= 

3900 DATA 1,2,7,1,0,4,1,5.0,8,17,1.1 






,4.8.1 



3936 *******»*+**. * 
3950 ************** 
i 2.8; M ':.:;G ; i"'H!CE pflpgR 0:BQSUB 2430 

1=90 



DATA :, 



.4.1,1.1.9,!. 



9;i. 0.5J4, 4. 0,4. -14, 5.0,4',14. 8,0,3.4,1,1, 4 

4020 DATA L, 1,0,5, 17, l.jâ, 4, 18, 1.0. 3, -14, 5,0. 3, 17. 1,14, 

2,17. :. 14. io.ie.i.o. :.=.:.:.: 
. : . 40 

4040 ; ************** 

4050 ' * TABLEAU 13 * 

4040 ************** 

4070 CLBlHODE 1 : PAPER 0;INK 3.4:1*' 1.2:1»: 7.8; INI; 0.0 

-.SRAPHÎCS PAPER : RE5T0RE 3140:80SUB 2630 

40B0 Y=260:H=280:U=250:yA=U:UB=133:i!=î:T=82iXK=s:yY=Y:a 

L=440:C-4B0:br=C;60TG 1990 

4090 ' ************** 

4100 ; * TABLEAU 14 * 

4110 ' ************** 

4120 CLS:NODE 1;1NK 0,22:INK 3,2: INK 1,4: INK 2.0:BRAFHI 

CS PAPER OiRESTORE 3080:PAPER OîGDSUB 2430 

1990 

4140 ' ************** 

4150 ' * TABLEAU 15 » 

4160 ' ************** 

4170 TABL=!5:H0DE 1 : INK 0,0: INK 1,24: INK 2, 15: INK 3,6:P 

AF'ER 3: SRAPHICS PAPER 

41B0 ac=420:bc=-24:X=294:Y=20û:c=-24;t=200;h=lB2;u=200: 

ua=u:ub--16:yy=y:6QTfJ 2920 

4190 ! ****************** 

4200.' * RAVITAILLEMENT * 

4210 ' ****************** 



■XK A 
9 



4270 ♦ *+****♦+*****♦*•** 

42K ' NIES;» ECHOUEE * 

42-90 <*»HHH«(»tttut. 

4300 WINDGW »3.i,40,i.:9 : FArE? S3,û:CL3*3 

4:::- raoc :;;» o,o':ï»; î, :->::«: 2.4: iw: :. : ?=apef j:PE 

N 1 : LCChTE 4,30:' : RINT Verre sacre es: sa èl :e.::" Peints 

.-'îlCÇhTE 2,1I:PRINt "jisis r.àU-a; z= résultât ,'Oure m 

saion" iL'ôlATE 2.12: -RI NT 'a éeho>je"::FEN 2:FRINT ''.a:o> 

a veva serez fusille - ' 

422: PEN TiClEAF INPUT:LOCATE 3,:4:tR;NT "tonne: votre 

noms pour ! acte cVilOCATE 3. 15: INFO - '.cr' (p lettre a 

a,-. . : " s nom* 

433( IF ec. -eçore'.NA' THEN ne=nd:nç. :1 nG:rK ± nb:nbana:r-a-N 

F:çcore(nFi=sc:(ioi(nr)=no«} EL3E IF S£>=score!NBi ANE a 

: acqreINAI THEN ne=na:nd=nc:nc=nD:r;b z nF:a:af a;nF=ac:n 

o$inF(=nomi 

4340 IF EC/=scaraOiC' AND scOsçoreiNBÎ 7KEN .ne=rc; " :=-■ 

;r,:=nF v : sccreOr.F:=sc:no.î'.nF/=nGTiï EL3E :F 5C;=sccreiNÛ) 

AND ac sccreiNC' THEN ne=nc:na=nF:aaarerP =ac:r.aî :riF! = 

nofiîS 

inF)=sc:nDtiRFj=!ioJ!* 
434( :0Tj 540 
4370 ****************** 
4350 » «ISSIDN REUSEIE* 
4390 ****************** 

4400 FOR q=2200 "0 100 5TEP -lG:àGUND l.o/'7,2.q/150.,.3 : 
Q:'INK l,B/iOOiINK 0,q/15Q:INt 2,c/80::NEÏT 
4410 MODE 1:1» !,6;IM 2,24:1» 3. 7 :PAFER OiPEN 1:lOCA : 
TE !5.7:ffi!NT ; 'FEL!CnAT!ON ! : |i; :LOCATE 1Û.4:PRINT "38* 
Sr°:SC:"* 10":SC=SC»10 

4420 PEN 2:L0CA"E 5. ihFPINT "Votre «ission est xi suce . 
es. De plus":LOCATE 3.12:FRiNT "vous avez un sacre 3e : : 
: EN 3:PRINT scj.-PEN 2;PRINT "peints" 
4430 CLEAR INFUTlPEN 3:UXATE 2. 14iINFLT"0uei est votre 
nofr.":ncoi*:PEN hLOCATE !4.:6:PPINT non*:" 1 " 
4440 PEN 2:LGCATE 3. 13:PRINT 'Le gouvernement es: fier 
ae vous.":CAlL fcBBOt :60TB 4770 
4450 ' **************** 

4440 * plue de'euel * 

4470 ' **************** 

4480 F3R Ï=Y TC ï-300 STEP -2:X=X+0.5:M0VE X.ïiPRINT AI 

il!:: MOVE <rlo.Y-!5:FF.INT AtiKO; 

4490 IF S>2 AND <TESTiï-l,y-i4K>0 OR TESTix*25,y-32K/ 

ûfi TE5T(;;*43.,-14!OC OR TEST ix-1. y-12J ■." DR TESTix* 

40.y-32!0>0 OR TEST(s+25,y+2H>01 THEN BQSUg 2300:s=ss: 

y=yy:6GT0 1940 

4500 ei=el+l:SOUND !,200+el.3,lû:NEXT 
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REGISTRE 



REGISTRE permet de 
visualiser les résultats de 
diverses manipulations dans 
un registre double ou simple 
et effectuées par un 
programme en langage 
machine. 




\Yves DRIESBACH 



e programme est entièrement 
écrit en BASIC et est donc 
compatible avec les trois 
types de CPC soit 464, 664 et 
6128. Toutes les explications sont con- 
tenues dans le programme et son utilisa- 
tion est très aisée puisqu'il suffit de sui- 
vre les instructions. Au début du pro- 
gramme, un menu vous propose l'adres- 
sage d'un double registre ou la manipu- 
lation d'un registre simple. 
L'adressage d'un double registre permet 
de voir quel sera son contenu après y 
avoir placé une valeur supérieure à 255 
bases ou après avoir modifier l'un des 
deux registres formant le double regis- 
tre, toujours dans les trois bases déci, 
hexa ou binaire. 

La manipulation d'un registre 8 bits per- 
met de voir son contenu suite à une ins- 
truction en langage machine tel que par 
exemple : SET, RES, RL, SLA... et ce 
avec toutes les explications nécessaires 
et la comparaison entre la valeur avant 
et après la manipulation. 




10 REM **************************** 

************** 

20 REM * adressage direct de doubi 

es registres * 

30 REM * cpc 464,664,6128 



40 REM * 



DRIE5EACH Yves 1988 



50 REM **************************** ; 

************** 

60 SYMBOL AFTER 92 : 

70 SYMBOL 92,24,36,24,24,24,24,24 

80 SYMBOL 94,64,32.120,12, 124,204,1 : 

18,0 

90 SYMBOL 123,24,36, 60, 102, 126,96,6 

100 SYMBOL 125,16,32,56,108,124,96, : 

60,0 

110 SYMBOL 163,16,8,102, 102,102,102 

,62,0 

120 SYMBOL 96,16,8,56,108,124,96,60 

130 KEY DEF 24,1,94, !63:KEY DEF 17, 
i,91,123:KEY DEF 19, 1 , 93, 125: KEY DE 
F 22,1,96,92 
140 MODE 2:INK 0,13:ÏNK 1,0:B0RDER . 



13:DEFSTR C:C=CHR*!24i :HIMD0W«1, 1 ,8 

0,1,3: PAPERtfl , 1 : PENH , 0: CLSil ; «Mû 

«#0,1,80.5,25 

150 CLS:PRÏNT#i :PRIMT#1. TAB (2B! ; "TR >FG 

A1TEMENT DES REGISTRES" : PRÏNT#1 , TfiB 

i27):STRINB*i26,"*"! 

152 PLOT 50,256:DRfi« 60û,256:DRAN 6 >YH 
00,80:BRA« 50,S0:DRAW 50,256; X=51:Y 
=257:F0R 1=1 T0 10:PL0T X,Y:DRAK X+ 
550,Y:DFtflW X+550, Y-176: X=X+1; Y=Y+Î; 
NEXT I 

153 PLOT 500,48:DRA« 520,5S:DRA« 63 >NG 
9.58:BRA« 625,48:DRA« 639.58:DRAW 6 

39, 11: DRAW 625,1 

155 WIND0W#3,63,78,23,25:PAPER#3.1: >HL 

FEN»3,0:CLS#3:FRINT#3:PRINT#3, " "tC 

HR*il64)+" DRIESBACH.Y " 

160 L0CATE 14,8:PRINT"ADPF.SSAGE DIR >NZ 

ECT D'UN DOUBLE REGISTRE — > 1":L0 

CATE 14,10:PRÎNT u HftNIPULATI0N DE BI 

T.DECkLAGE, ROTATION — > 2":L0CATE 

4O,15:PRINT"v0TRE CHOIX ?":CALL MB 

18 

170 IF ÎÏNKEY!64)=0 OR INKEY(13)=0) >0B 

THEN GOTO 200 
180 IF i!NKEY;65!=0 OR INKEYii4)=0) >QU 

THEN GOTO 870 



« 19i) S07G !60 

200 REM ***** •: siications ***** 
210 CLS#l:PRirfili.7« I. ; WESSAG 
t DIRECT DE DOUBLES =1: \~li ;"RIN 
T#l. T ftB!2C) ;B T -I I: " ■ 
220 CLS:PRINT°Ii -;.- :• :.- :ue io 
rsque vous voulez adresser s doubl 
e registre, il faut tonjoure û" 

aborc rentrer I :::;: fâibiê puis I 

octet fort." 

230 PRIMPil serait ..; aiwle de 
dire qu'il fôu; : -_: . . =-\r5r la 
valeur de ":C:' T _ :I: avait celle 

de "ïC:" H '';C: 2= = le cas de c 
e registre). '' 

240 PRINTiPRIN" E:£" : _£: taus vouie 
z utiliser l' instructif I Chu. ^BB 
75 ] gui est I Nuiraient Iki f. L0CA 
TE ] en BASIC. II -auc-i ccnc que [ 

H 3 contienne )e colonne et E L j 

la ligne auqueis le curseur devra 
ître piac}. 1 ' 
250 PRINT 

260 PRINT" Si vous *c_Iez un L0C 
ATE 10,24 ,en asseableur, la logigu 
e voudrait gue vous kriviez [ LD H 
L,WA1S ] toi K>A=!0 et 418=24) mai 



10 



o 



s cela serait tau* car une fois 
assembii. cela donnerait un LDCATE 

270 ^RiN 7 " La nonne instruction est 

donc: ' 
230 PEINT C:' 1 LD HL.SIEOA ':C: ' qui 

une ^ois asserobiie voue donne ":C; 
" 210A18 ";C 

"OC PRINT"Ce programme *ous permett 
ra d adresser correctement vos doue 
les registres ou de transcrire is v 
aieur pu lis contiennent en d>cl>T:ai 

. cinaire et hexadécimal. 5i vous 
appuyez SïtTfPÎeiitent sur <ENTER> sans 

rentrer de valeur ■ la question :" 

310 PRINTTVfiLEUR DE...], il vous s 
utTira de sélectionner l-'un des req 
istres par la touchecorrespondarits 
du paver nuiTO-rique.ee qui vous père 
ettra d'adresser chacun des deus 
registres slparement sans altérer i 
e contenu de l'autre.' 1 
320 LOCATE 50,2i:FRINT C:" appuyez 
une touche S.V.P ":C:CflLL M818 
330 REM «** ADRESSAGE BE DOUBLE REG ÏLB 
ISTRE *** 

370 »INDOI#2.50,SO,!8.23:PAPER»2.0: >EG 

PEN#2.1:CLS#2:HIM0»#3.i.4B.23.25:P 

flPERB , -.'PENtS; J : CLS# 3 

380 ÛLS: IMPOT "DONNEZ UN NOM A V0TR >Bis 

E DOUBLE REBISTRE Ses: AF,BC,BE,HL, 

IX ou IY! ";RE6* 

390 REËt=LiPPER*iREB$!:IF REGtO"AF" >NF 

AND REBiC'BC" AND REB$<>"DE" AND 
REB$0*HL" AND RE6tO"IX" ANB RE6*< 
V'ÏY" THEN. 3B0 

400 RE$;ii=LEFT$îRtB*.i):RE$!2i=RIS >PH 
HT» (REG*, i! 

410 ÛLB:PRINT"VALEUR DE ";C;" ";REE >KL 
$;" ":C:PRÏNT" EN DECI.HEXA (4....) 

ou BIN. ils ! ";:IN 

PUT R* 

420 LOCATE 1,2:PRÏNT SPACEilSOÎ >2L 
430 IF VAL(fi*!=0 THEN 470 >RT 
440 IF ÏALifi$S>65535 THEN FRINT CHR >JF 
*(7i:L0CATE i,3:PRINT"un double req 

istre ne peut contenir de valeur su 
nineure * 65535 ou M~FFF":F0R i=l 

TO 5000-.NEXT i : LDCATE i,3:PRINT SPA 
CE$i79S:LDCATE l,2:BOT0 410 



• ,2!="«x" : HESi R 



M = 



•"■Es» VAl'FI;; 



460 IF LEF t î:-:î. i)-"-i ' THE'. R2-VAL! >VV 
LEFT»lR*,3;!:R!=VALPt"tRI6HT*:fit,2 

THEN R=VALi >EC 



470 IF LEFTïiF.t, i 

R$):RR=R:RI=RR:B0SUB 700 

4Su RR=R/256:R2=FIX (RSî :R1'= îRR-R2j* HO 

25c 

«90 F1C T 1.170:DRAb 635. î 7G: DRftW à3,;NC 

200:DRhw 635.200 

3:0 _CCATE :.^ C E;NÏ T ;ETc::2:" DE >a 

C ";C;TAB<5rl:C; HE.<A :0;ïAE.:~>: 

C:" ÏIK ':C 

510 LOCATE 2. 8:PRINT T ABi5::C:' : 'TU 

RE* ( i ) : ' ■';■::" A POUR VALEUR .:": TAB 

(37i:USIN6"tHt#";Rl::FRINT TAb:53;:" 

»( ,: t-EX*lRi.2:.BIN*;R!.E! 

520 L0CA T E 2.10:FPINT ThB;5- :C:" "; M 

RE»(2!:" ":C:" A POUR VALEUR :":TAFr 

:37i;l.'5!!€"«t : 'iR2;:PRlST TAEÎ5T.. : " 

8i"tHËX*iR2,2i,BÎN*(R2.ei 

525 REM *** MENU *** :H0 

530 CL3 i t2:PF:IMT=t2."tl - modi-fi»er 3i 

:C:" " :re* ' I; : " ";C:FRÎNT#2,"f2 - m 

odlrier ''3;" ";reii2); l! " : C:FRINT# 

2."F3 - renositier le registre":FRINT 

42, "f4 - imprime 1 ' les dcnnjes :PRIN 

T 82. ' f5 - retourner au menu" 

540 FLOT 3BS.!32:DRA« 600. 132: 0F* >LG 

600,40:DRAI< 388.40; DRAW 336.132 

550 CALL iEElB >MF 

560 IF INKEY l'3)=C THEN R*=RE»i!::S .'JE 

ÛT3 620 

570 IF INKEYU4)=0 THEN R$=RE*!2Ï :S >JH 

0T0 620 

580 IF INKEY 15)=0 THEN GOTO 360 >VN' 

590 IF INKEY !2û)=0 THEN-60SUB 760:6 3X 

OT0 530 

600 IF INKEY(12)=0 THEN B0T0 140 >YH 

610 GOTO 550 >ZB 

615 REH Ht NOUVELLE VALEUR *** >Yu 

620 R»=UPPERt!Ri! M 

630 PRINT#3, 'nouvelle valeur de ":C >YH 

:" ";R*:" :':C:PRINT#3:PRINT*3." ! 

255, îiFF OU 4X1111111! «asii "::INF 

UT#3,RR$ 

640 RR*=UPFER«(RR»! >PP 

650 IF LEFT*(Rft*,2)<>"&X* AND LENIR >DL 

R$!>3 THEN CLS#3:B0T0 630 

660 RM=VAL(RR$);IF RN>255 THEN PRIN >EA 

T CHR*i7i:CLS#3:BDT0 630 

670 IF R*=RE4 i i ) THEN R1=RH ELSE R2 >EB 



450 IF LEFTt(R*,2)="H" OR LEFT$«R$ >RÛ* =RH 



680 RR-iR2*~36'fRi:-;I z KR Uu 

690 603UE 700:5030 750 07 

700 REM ***** modification i un cet :-VE 

et *■****■ 

710 LOCATE i , 4: FF IN'ï EFA2F1- -. 30- 12 

720 FLC T 0.293:DRAi» =75. 2=7: ÏFAJi -.'. ;-FN 

5.27!:0RA« 0,271:DRA'*I 0.293 

730 LOCATE 2.4:FF:iNT 'DEC: RF; T AE; UH 

2E) : "HEx : i' : +HcX$ :Rr . 4 : " ae ;5=; : "j; 

N: >BW*;RR.lci 

740 RETURN 23 

760 REM ***** impression de il pe^e MA 

écran ***** 
770 FR:NT«B:PR;r-: T *9:F-;'v»5. ".AIEUR 'F:T 

DE ":REG$ 
7B0 PRTNT*8;60SUB B60 >3L 

790 PRMT»8. " DEC: ":R;:TAB(23):"HE >KN 
i: FTHEX4tEi.;): T AE:39;:"rIN; "-+BI 
WiRi.lo' 

300 3Û3UE 860 i-"B 

B10 PRINT»e:PR!NT»B,TAB!36!;-" DEC " RC 
: T A5i5ii:" 4EXA ":TAB(67i:" BIN " 
820 PRINT#8:605UB 860:FRiNT»E.TAE .; -I 
) : RE* ! 1 ) : " CONSENT LA VALEUR :': T A 
Bî37!;Rl:îSB(53):"i"+HEXS;R!.2 .FIN 
JiRl.B! 

330 GOSUB 860 >JE 

840 FRINT#3.TAEi6/:RE4 ; 2i: : ' CÛNTIEN *6 
T lA VALEUR : a ;TAEI37>;F2:TAB!33i: n 
Si"+HEXt(R2,2-),EIN$iR2,E! 
850 GOSUB 860:PRINT*8;FR!NTS8:RETJR SU 

360 FOR 1=1 73 -9:PRiNT«3. '- ;:■*!* CI 
i:PRINT»S," ":RETURN 
870 REM **** set.res.rl.rr *** « 

880 CLS:Cl3*I RB 

890 FRINT*l:?RINT#l,TABil3): 'INSTRU >EE 
ETIONS DE DECALAGE, ROTATION. MANIPUL 
ATION DE BITS" : PR INT#1 , TAB ( 12 i : STR I 
N6*(56,"*"j 

900 PRÏNT'H est toujours intiressa jDF 
nt de connaXtre le risultat d'une i 
nstruction tel que:":PRINT:PRINT:C; 
"SET - RES - RL ou RLA - RR ou RRft 
- RLC ou RLCA - RRC ou RRCA - SRL - 
BRA - SLA ";C 

910 PRINT'Pour les instructions de >XH 
rotation. le fonctionnement et le r 
}5uitat liant pareiltant pour les r 
egistres S bits que pour l'accumula 
teur (EX: RR = RRA) nous ne les a 
ppelierons donc que RL,RR,RLC ou RR 
C 
, 920 LOCATE 1,19:PRINT "X = registre >YB 
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A.B,C,D,E,H,L ou bien le contenu d 
'une adresse point) par (HLÎ, il 
»d}placeiTient) ou \ I Y+d > p i ac emsn t ) ,! 
:L0CfllE 1,9 

930 PRINT: PHINrentrez ia valeur co 
ntenue dans le registre ou l'adres 
se ";Ci" X "iC:PR!NT TABÎIS):"! 255 
, i.FF DU ÎXiilîllli «axi) ";:INPLiï 
RI 

940 Rt=UPPERtfRli 

950 IF LEFT$(R$,2K>"4X" AND LEN(R$ 
i>3 THEN 60T0 990 

960 IF LEFTt(Ri,3i="M" AND LEN(Rt) 
>B THEN GOTO 990 
970 RR=VAL(Riï:IF RR>255 THEN FRINT 

CHR* (7): EDT0 990 
980 BOTO 1000 

990 PRINT CHRt!i3i;CHR*i!li:SPACEt! 
70 ) : CHR* 3) ; CHR* (115; CHR* ( 1 i ) ; : fiOT 
930 

1000 PRINT;PRINT "Le bit de dînasse 
nient ";C;" C ";C;" du registre FLAG 

est il ' ";C;" i ":C;-' ou ■ ";C; ,: 
":C:" ";:INPUT CAR» 
1010 !F VALiCARIKO DR VAL (CflRt) >1 
THEN PRINT CHR*(7):PRINT CHR4U3) :C 
HR*iili:SPACtt(70):CHR$i!3!;CHR*lll 
i;:BDT0 1000 

1015 REN *** AFFICHAGE *** 
1020 CL3 

1030 FRINT"CDNTENU DU REGISTRE DU D 
E L'ADRESSE ";C;" X ";C 
1040 LDCATE 1,3: PRINT C;" ayant opî 
ration ":C:L0CATE 53,3:PRINT"QEC : 
";C;STR*iRR);" ";C;" HEï s ":C;" 

ît"iHEX$tRR,2);" ";C:L0CATE 1,7;PRI 
NT C:" apr's op}ration ":C:L0CATE 5 
3,7:PRINT"DEC : ";C;STR$ CRR) ; " ";C: 
HEX : •;C',' i";HEXt(Rfi.2) :" "i 
C 

1050 PLOT i,310:DRAN 639,310:DRAN 6 
39,21B:DRAW 1.21S:DRAW 1,310 
1060 R*=BIN*(RR,8! :BITS="76543210" 
1070 LOCftTE 24,3:PR1NT CAR*:LOCATE 
40,3;PRINT R*:LBCATE 24,7:PRINT CAR 
*:L0CATE 40,7;PRINT R* 
10B0 LDCATE 2, 5: PRINT "CftRRY FLAG - 
->":TfiE!23i;C;" C " ; C;TAB(40) ; BIT*; 
TAB<65):"<— No du BIT" 
1090 PLOT !80,306:BRAM 194,3Q6:DRfl» 

19è,2B6:DRAN 180,284:DRA« 180,306: 
PLOT 308,3O6:DRA» 380, 306: DRAW 3B0, 
286: DRAW 308,286: DRAW 30B,306:PLDT 
1B0,2B3:DRAW lBB,275:X=316:Y=2a3:FD 
R 1=1 TD BiPLOT 1,1mm X,Y-B:X=X+ 
B:NEXT I:PLOT 1BB,254:DRAN 188,246: 



1100 ¥=254:FOR 1=1 TO S; PLOT X, Y:DR 

AW X,¥-B:X=X+B:NEXT I:FL0T 180,243: 

DRAif* 196,243:DRAW 196,222;DRM i 8U = 

222:DRAN 1SO,243:PLOT 308, 243:DRAW 

3B0,243:DRAN 3B0.222:DRAW 30B.222:D 

RAW 308,243 

1110 R1*=R* 

1115 REN *** MENU FONCTIONS «** 

1120 LOCftTE i,ll:PRINT"fiENU FQNCTIO 

NS :";PRINT 

1130 RESTORE 1420;N=0:X=2:60SUB lié 

1140 LOCATE 1.14 

1150 ON VA GOTO 1430,1500,1570,1620 
,1480, 1730,1780,1330,1880 
1160 PLOT 1. 146:DRAW 300.ï46;BfiAN 3 
0Û,124:DRAW 1,124:DRAW 1.146 
1170 FDR 1=1 TO 639 STEP 40: FLOT I. 
120;DRAN 1+35, 120:NEXT I 
1180 N=û:WHILE Fï(NK>"*":N=N+i 
1190 READ F*ïN!:WEND;NN=N-i 
1290 WIND0W#3,3B,B0,i7,17:FAFER»3,i 
:PENt3,0:CLS#3:PRINTi3,"->CHQIX=":C 
HRt !242) iCHR*(243! : " /VâLIDATION=CD 
PY /MENU=N /I?1P=I" 
1210 PAPER 0:PEN 1 
1220 FOR 1=1 TO NN 

1230 LOCATE X,13:PRINT TAB(X):F*ÎIÏ : 
::ï=X+4 
1240 NEXT 

1250 VA=1:X=2:Ï2=4 

1260 NIND0N#2,X,X2,17,17 : 
1270 PAPER#2,l:PEN#2,0:CLB*2:PRINTt : 
Z.FtiVAi; 
1280 CALL iBBiB 

1290 IF INKEy;33!=0 THEN GOTO 140 
1300 IF INKEY!35i=0 THEN GQSUB 1360 : 
;GOTO 1260 

1310 IF INKEYU)=0 THEN PAPER#2.0:P : 
EN#2, 1 : CLS#2: PRINTI2, F* (VA) : : VA=VS+ 
1:X=X2+2:X2=X+2:IF VA=SO THEN v'A=i: 
X=2:X2=4;GOT0 1260 ELSE 1260 
1320 IF INKEYÏ8i=0 THEN PAPER»2,0:P : 
EN»2 , 1 : CLS#2 : PR I NT#2 , F$ i VA ) : : VA=VA- 
i:X=X-4:X2=X2-4:IF VA=0 THEN VA=9:X 
=34:X2=37:G0TD 1260 ELBE BOTO. 1260 
1330 IF INKEYi9i=0 THEN RETURN 
1340 GDTO 1280 : 

1350 REN *** IMPRESSION DEB DONNEES : 
#«* 

1360 F'RINTte, "Contenu du registre X : 
avant et après l'opération " ";F$ 

(VAIMP! ; " "; 

1361 IF VAIMP>2 THEN PRINT#B,"X "" : 
ELSE PR1NT#8,B$:",X "" 



" 



1368 PRINT#8:? ; RINT«E:F:*=RI3HT*iSTR 
,t!RI),3i:IF LENIRBK3 THENRIt=" " 
tRIl 

1370 RRIt=RI6HT$!STr»!RRli,3i:IF LE 
N(RRHj<3 THEN RRI$=' "«KM 
13B0 PRINT#6,TAB!21;;"CfiftR¥":TABÎ33 
i:"BIT No 76543210" 
13B5 IF CARINP1$="" THEN CARÎ«P1*=C 
ARIMPt 

1390 6DSUB e60:PRIffflE. "avant opéra 
tion : " ; TAB (24Î sCARINPt: TAB 134) : "BI 
N : " : BI NS (RI . B) ; TAB (53) : "DEC : ";R 
1$:" HEX : S":HEX*iRI.2):aDEU8 86 

1400 PRINT#B:BOSUB B60; PRINTÏ8, "apr 

es opération :":TABC24!:CARIMF1$:TA 

Bi34i:"BIN : ";BIN$:FF;,S: : T AB;53i; 

"DEC : ":RRIJ" HEX : i," ;HEXt (RRI , 

2):G0BUB 340:PRINT#B: : fi:NT#B 

1410 RETURN 

1420 DATA RE3 .SET ,RL .8LC .RR , 

RRC ,SLA ,SRL ,SEA .* 

1425 REN *** EFFET DES FONCTIONS « 



1440 PRÏNT;PRINT C:" REE ":C 
1450 PRINT"!îtet le bit design) " i'î 
tat [0] ou Ittacement, l'instructio 
n s'îcrit: ";C;" RE3 b.op ";Cj"b )t 
ant le No du bit (0 a 7! et op l'op 
Irande pouvant (tr-e un registre oti 
une adresse pointîe par HL, IX+C- 
placement ou lY+dlpIacesent " 
1460 PRINT: PRINFentre: le No du bi 
t !0 a 7) ■" mettre ■' zîro dans le r 
egistre ":C;" X ":C:" ci-dessus :" 
1470 LOCATE l,21:INPUT"bit No : ":B 
* 

1480 B=VALtB*):IF B<0 DR B>7 THEN P 
RINT CHR*!7i:L0CATE 10.2i:PRINT" 

11 : LOCATE 1,21: GOTO 1470 
1490 BïT=B-B:NID$iRl»,BI!.î>="û":Ri 
*="M !, TRlt:RRi=VAL!R!*S :B0T0 1940 
1500 ' SET 

1510 PRINT:PRINT C:" SET ";C 
1520 PRINFîîîet le bit dlsign) " i') 
tat II) . l'instruction s'îcrit: "s 
C:" SET b,op ";C;"b )tant le No du. 
bit (0 a 7; et op I 'oplrantie pouvan 
t (tre un registre ou une adresse 
pointîe par HL, IX+dlplacenent ou 
IY+d}place»ient " 

1530 PRINT:PRINT"entrei le. No du bi 
t (0 a 7) "'■ mettre A un dans le reg 
istre ";C;" X ";C;" ci-dessus :" 
1540 LOCATE i,21:INPUT"bit No : ";B . 
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1550 B=VAL(B$):IF B<0 OR B>7 THEN P >BE 
RINT CHR*(7):L0CATE 10,21iPRINT" 

n :LOCATE 1,21:60TB 1540 
ISèO EIT=8-B; MIDt CRI*, BIT, I) =" 1" : Ri >RE 
*="&X"+Rit:RRl=VflL<Rl$! :BOTD 1940 
1570 ' RL >YF 

15B0 PRINT:PRINT Ci" RL ";C >«. 
1590 PRINT"dïcale tous les bits de >M 
l'octet point) par (HL) ou (IX+d)pl 
acement) du (H+dîplacèmeri 
t) ou contenus dans le registre sp> 
ciPi} d'un bit vers la gauche, le b 
it No-7 sera recopi) dans le Carry 
et la valeur d'origine du Carry ira 
dans ,r 

1600 PRINT" dans le bit No-0 de I 'o >JU 
ctet. L'instruction s'î-crit ";Ci" R 
L op}rande ";C:FRINTiPRINT C;" appu 
yez une touche "iCiCALL MB18 
1610 CARl*=LEFT$(Rl*,l!iRi*=RIBHT*i >LF 
Rl*,7i+CAR4iRi*="!<X"tRl*:RR!=v'AL!Ri 
$i :60TQ 1940 

1620 ' RLC >YB 

1630 PRINT:PRIMT C;" RLC ";C >XB 
1640 PRINT"d)cale tous les bits de >ZV 
l'octet point} par (HL) ou IIX+d)pi 
acement! ou (IY+d)piace§en 
t! ou contenus dans le registre sp} 
cifi) d'un bit vers la gauche, le b 
it No-7 sera recopi) dans le Carry 
et dans le bit No-0 de l'octet. "; 
1650 PRINT "L'instruction s'krit " >PB 
;Ci" RLC op)rande ";C 
1660 PRINT:PR1NT Ci" appuyez une to >BC 
uche "iCiCALL SBB1B 

1670 CARl*=LEFTt!Rlt,l!:R»=RIGHT$( >NH 
Rl*,7i+CARl*:Rl*="M"+Rlt:RF;l=v'AL(R 
l$hGOÏO 1940 

16B0 ' RR >VH 

1690 PRINTiPRINT C;" RR ";C >W 
1700 PRINT"d)cale tous les bits de >flH 
l'octet point;- par (HL! ou (ÎS+dîni 
aceiient) ou (IY+d}placeaîen 
tî ou contenus dans le registre spe 
cifi) d'un bit vers la droite, le b 
it No-0 sera recopi) dans le Carry 
et la valeur d'origine du Carry ira 
dans" 

1710 PRINT" dans le bit No-7 de l'o >VT 
ctet ":PRINT:PRINT C;" appuyez un 
e touche "iCiCALL &BB18 
1720 CAR1*=RI6HT*(RW,1!:RU=CAR*+R >ZB 
1$;R1*=LEFT*!R1*,B):R1*="M"+R1*:RR 
1=VAL(R1*):6DTÛ 1940 
1730 ' RRC >YD • 



1740 PRINT:PRINT C;" RRC ";C >XK o 

1750 PRINT"dkale tous les bits de >TI 

l'octet point) par (HL) ou (IX+d)pl 

acement) ou !IY+d}placs»en 

t) ou contenus dans le registre sp) 

ci-fi) d'un bit vers la droite, le b 

it No-0 sera recopi) dans le Carry 

et dans le bit No-7 de l'octet." 

1740 PRINTiPRINT Ci" appuyez une to >GD 

uche ";C:CALL SiBBIB 

1770 CAR1*=RIBHT*ÎRU,1):R1*=CAR1*+ 

Rl*:Rlt=LEFT*(Rlt,8)-.Rll="H"+Rlt:R 

Rl=VAL(Rl*k6BT0 1940 

1780 ' BLA 

1790 PRINTiPRINT C;" SLA k ;C 

1B00 PRINT"d!-cale tous les bits de 

l'octet point) par M.) ou (IX+dlp! 

aceient! ou ùY+d)placefl>en 

ti ou contenus dans le registre sp) 

cifi) d'un bit vers la droite, le b 

it No-7 sera recopi) dans le Carry 

et un [03 sera mis dans le bit No-0 



>AN 



1810 PRINTiPRINT E;" appuyez une to >BI 
uche "iCiCALL ffiBIB 

1820 CftRl$=LEFTt!Rl$,i):Rlt=Rlt+"0" >WA 
:RU=RIGHT*(Rlt.B):Rlt="M n +Rlt:RRl 
=Wt(Hl*)iG0T0 1940 

1B30 ' SLR >YE 

1B40 PRINTiPRINT C;" BRL ";C >XX 
1850 PRINT"d)caie tous les bits de >KZ 
l'octet point) par (HL) ou (IX+d)pl 
aceïent) ou (IY+d)placemen 
t) ou contenus dans la registre sp) 
ci-fi]) d'un bit vers ia droite, le b 
it No-0 sera recopi) dans le Carry 



et un [01 sera sis 



1B60 PRINT;PRINT 

uche ";C:CALL &BB1B 

1370 CARlt=RI6HT$(R»,iî:Rl*="0"+Rl 

*:RÎ*=LEFT»(RLt,8);RIÎ="SX"+Rl*:RRl 

=VALiRi*):6DT0 1940 

1BB0 ' BRA 

1890 PRINTiPRINT C;" 3RA ":C 

1900 PRINT'dJcale tous les bits de 

l'octet point) par (HL! ou !IX+d)pl 

acement) ou (lY+dlplaceinen 

t) ou contenus dans le registre sp) 

cifi) d'un bit vers la droite, le b 

it No-0 sera recopi) dans le Carry 

et le bit No-7 reste inchang)." 

1910 REN AFFICHAGE N0UV. DONNEES 

1920 PRINT:PRIN T C;" appuyez une to 

uche ";C:CALL îiBBIB 

1930 CARl*=RIGHT$(Rl*,ii:B*=LEFT*fR 

13 



i$,l):Rl*=B*+Rl*iRl»=LEFT«(Ri*,8S:R 
l*="SrX"+Rl$;RRl=«AL(Rlt) 
1940 L0CATE 24,3iPRINT CAR»:LBCATE ;BH 
40,3:PRINT BIN*(RR,8hL0CATE 59,3:P 
RINT C;STR*iRR>i" ";C:L0CATE 73,3iP 
RINT C;" t:";BEX*(RR,2);" ";C;LOCATE 
24,7:PRINT CARI* 

1950 L0CATE 40,7:PRINT BIN*(RR1,B): >W 
LOCATE 59,7:PRINT C; STR$ (RR1 ) ; " "iC 
:L0CATE 73,7:PRINT Ci" &";HEX*(RRi , 
2):" "iC 

1960 CARIMP*=CAR«:RI=RRiCARINPlî=CA >FT 
Rl«:RRI=RRl:vai«ip=va 
1970 LOCATE 1,12:PRINT CHR«(20iiR*= >'YE 
STR*(RR!):RR=RRl:CAR*=CAR»iRl«=BIN 
*!RRl,BïiG0TB 1120 
19B0 END US» 



ANCIENS 
NUMEROS 

H, 




:ns le bit No-" 



' appuyez une ta >St 



'J Hors série n° 2 13 F 

D Hors série n" 3 D Hors série n° A... 15 F 

D Hors série n" 5 D Hors série n° 6 ... 15 F 

: □ Hors série n° 7 D Hors série n° 8 15 F 

! □ Hors série n° 9 15 F 

! Z\ Disquette HS 1 O Disquette HS 2 . . 140 F 

i P Disquette HS 3 □ Disquette HS 4 . 140 F 

I □ Disquette HS 5 □ Disquette HS 6 140 F 

D Disquette HS 7 □ Disquette HS 8 . . 140 F 

| a Disquette HS9 ■ U0 F 

Chaque disquette comporte tous les programmes 

Idu n" hors-série conespondant. bas abonnés à CPC 
bénéficient du tarit unitaire de 110 f pour les 

■ disquettes. 

' Nom 

■ Adresse 

I Code postal 

I Ville 
Signature 



Merci d'écrire en majuscules. 

Ci-joint un chèque libellé à l'ordre des Editions 

SORACOM. Retournez le coupon ou une photocopie 

à Editions SORACOM - La Haie de Pan - 

35170 BRUZ. 
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PROBLEMES 



Instituteur m'occupant des 
mathématiques dans deux 
classes de cours moyen, j'ai 
pu constater les difficultés 
des enfants à comprendre le 
données d'un problème 
(lecture) et à les utiliser 
pertinemment, avec le choix 
de l'unité correspondant. 



'est pourquoi ce logiciel pro- 
pose aux enfants un grand 
choix de questions dont 
quelques-unes n'admettent 
aucune solution, développant l'esprit 
critique. 

En tout, on disposera d'un nombre con- 
sidérable de problèmes différents avec 
50 questions possibles. Seulement 1 de 
ces questions seront posées à chaque 
problème. 



10 ' /lhÇ 

20 ' INITIALISATIONS )LB 

30 ' >LC 

40 PART ï E= 1 : ESSA I =0 : S I DE=0 : PT3=0 : D= >NS 
0:XG=0 

50 DM ¥3(13) >6B 

60 3PEED INK 26,1 >LZ 

70 ON ERRQR S0TO 90 >N8 

80 GOTO 100 >HH 

90 CLS #4:FRINT#4:PRINT#4:PRINT#4," >RH 

ERREUR ! ! :":FDR 1=1 10 
2000:NEXT:GQT0 510 

100 MODE 2 >HA 

UO SYMBOL AFTER 64 >NE 

120 SYMBOL 125,96,16,60,102.126,96, >CC 
60 

130 SYMBOL 123,6,8,60,102,126,96,60 >BT 
140 SYMBOL 93,24,36,120,12,124,204, >DA 



Les adultes pourront également trouver 
un intérêt à ce logiciel éducatif (une fois 
n'est pas coutume !) en exerçant leur 
mémoire, grâce aux 3 niveaux de jeu. 
Un grand remerciement à Philippe 
Nguyen et son logiciel Calculatrice paru 
dans le CPC numéro 17. La calculatrice 
utilisée dans Problème est simplifiée au 
niveau des fonctions mais adaptée : on 
peut taper directement les chiffres sur le 
clavier, ou à défaut se déplacer avec les 
flèches de direction. Dans ce cas, la flè- 
che se déplace de case en case sans in- 
termédiaire. 

Le corps principal du logiciel Problèmes 
est compris entre les lignes 10 à 2000. 
La suite est constituée des données et des 
questions. 

il est prévu de faire évoluer ce logiciel 
avec d'autres problèmes. 






CPCment vôtre. 



f Alain MANGINI 



m 

150 SYHBQL 64,96,16, 120, 12, 124,204. >DS 

ne 

160 SYKBQL 91,24,36,60,102, 102,102, >CB 
60 

170 SYMBOL 163,0,0,0,0,0,24,24,32 >ffl 

180 SYHBOL 247,255,130,132,132,130, >lt 
177,203,134 

190 FOR 1=1 TO 12:YQ(I)=0:NEXT I >ZG 

200 INK 0,0: INK 1,26:B0RDER >WB 

210 ' >RD 

220 ' NIVEAU >RE 

230 ' >RF 

240 MQEE 2 >HF 

250 PRINT:PRINT" >HU 
CHOIX BU NIVEAU": PRINT" 



|260 PRINT:PRINT:PRINT 



270 PRINT" NIVEAU 1 : Le texte res ; 
tera attichi en permanence, n :priIWT 
BF'ACE$ ( 13) ; "Seulenient Ksoiution de 
situations. :l :PRIrJT 

2S0 PRÏNT" NIVEAU 2 : Le teste ser ; 
a afficha le temps voulu avant I'sp 
parition de":FRÏNT SPACEt(14) :"chaq 
ue question. "-.PRINT SPACEÎu3) :"«{■ 
orisation courte ou prise de notes. 
" : PRINT 

290 PRINT" NIVEAU 3 : Le teste ser : 
a attichi au d-ibut de chaque situât 
ion pendant": PRINT 5PACEÏ114Î: .'quel 
ques minutes. ":PRÎNT 3PACE$(13ï:"En 
suite il Faudra compter sur sa HtCnso 
ire et sur le bloc-notes." 
300 L0CATE 6,2û:ÏNPUT" Votre cho 
ix : ": NI VEAU* 



310 IF NiVEAUt="l" 

400 

320 IF NIVEAU$="2" 

330 IF NIVEAU*="3" 
:PRINT BFACEtiSOÏ; 



THEN NIV=i:GGTU 
THEN NiV=2:60TG 



THEN L0CATE 1,20 : 
FOR L=l TD 17:PR 
M:NEXT L:LDCATE 9,B:FRINT" Le tex 
te visible sera visible pendant corn 
bien de minutes ?":L0CATE 20,ii:F'RI 
NT" (de I É 91" 

340 IF NIVEAu*="3" THEN L0CATE 6.20 : 
:INPUT" Votre choix : ":B*:IF B 
$="" OR VALiBt)>9 OR VALlBtKS THEN 
GOTO 340 

350 IF NIvEAU$="3" THEN B=VAUB*Î:N : 
!V=3:AT=B*2000:G0T0 400 
360 L0CATE i, 20: PRINT SPACE$ (80) ; : G 
OTO 300 



370 ' 


/TA 


380 ' FENETRES 


>TB 


390 ■ 


>TC 


400 MODE 2 


>HD 


410 HINDOU #1,1, 45,1, 22:PAPER #1.1 


>DY 


PEN #1,0: CLS #1 




420 MINBOU I2,1,45,23,25:PAPER #2, 


>RG 


:PEN #2,0:CLS #2 




430 «IND0U #3,47, 80,1, IBiPftPER 13, 


>EE 


:PEN #3,0:CLS #3:PRINT#3:PRINTit3," 




BLOC-NDTES" : PRINT#3, " 





440 WIND0N #4,47,B0,20,25:PAPER #4, >TH 
!:PEN #4,0: CLE #4 

450 PRINT#!:PRINT#1," >BG 
TEXTE":PRINT#1," 
»:L0CATE #i,l,20:PRINT#l," 



":PRINT#i," 

>Tu| ÛUESTI0N":PRINT#1," 
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460 UINDOH #1,1,45,4,18 


>0N 


470 GOTO 2020 


>FC 


480 ' 


>TC 


490 * BOUCLE PRINCIPALE 


>TD 


500 ' 


>RF 



510 CLS(t4:PRINT#4:PF;INT*4,° 1. REPO >XX 
NSE":F'RINT«4," 2. CALCULETTE" : PRINT 
#4," 3. ELOC-NOTES" : FRINT#4, " 4. ïïl 
LAN":PRINT»4," 5. AIBE"; : INF'UT #4," 

Votre chois ";A$ 

520 IF Aï="l" THES BOTO 600 >TD 

530 IF A*="2" THEN BOTO 730 >TK 

540 IF A$="3" THEN GOTO 1730 >UH 

550 IF A$="4" THEN GOTO 3200 >UH 

560 IF At="5" THEN BOTO 3360 >UT 

570 GOTO 490 MB 

580 RETURN >ZJ 



600 ' REPONSE 

610 ' 

620 CLSi4:PRINT#4:PRINT*4, 

VOTRE REPONSE' 

630 PRINTH," 



640 IF X0=I0 THEN 690 >NG 

650 PRINT#4: INPUT H," Nombre : ";R >G2 
!$ 

660 INPUT 14," Unitï ou I : ";U1* >CX 
670 IF R1=0 AND Ul*="" THEN 490 >»T 
6B0 BOTO 3770 >BJ 

690 PRINT#4: INPUT 14," Heures : ";U >GR 
1» 

700 INPUT #4," Minutée : ";Ri* >AZ 
710 BOTO 3770 >GC 

720 ' >RK 

730 ' CALCULETTE >TA 

740 ' >TB 

750 NB=0:NB$="":T=0:FLAG=0:FLAEfi=0 >CN 
760 CLB »4:FBR J=9 TO 75 3TEP 32:F0 >UF 
R 1=378 TO 476 STEP 24: 6=1-2: D=I+18 
:B=J-4:H=J+20:B0SUB 1330:NEXT:NEXT 

770 6=530:B=548:B=13:H=37:B0SUB 133 >DX 



780 B=59B:D=616:B=13:H=37:G0SUB 133 >DJ 

Q 

790 G=563:D=5S1:B=13:K=37:603LIB 133 >DC 

BOO PRINT CHF;*',23}"1";:PL0T 382,22, >BZ 

!:TftB:PRINT "12 3 ,"; 

810 MOVER -104,32:PRINT"4 5 6 + >EP 

B20 «OVER -104,32:PRINT"7 9 s >FP 

!30 MOVE 536, 30: PRINT ■=■; >UD 



B40 MOVE 6Ù4,30:PR1NT CHR*(240i: 

850 «OVE 567,30:PRINT "C"; >UR 

860 TA60FF;PRINT CHR*i23S"û' ! ; >XH 

870 PLOT 382,22,1 - >LN 

880 6=521:B=62i:B=60:H=34:G0SUB 133 >DV 



890 MINDDW #5,67,77,21, 21:PAPER #5, >UG 

0:PEN #5,1:CLS #5 

900 PRINT#5,STRINB*ilô."."):"0"i >I3 

910 X=45B:Y=18:AX=X:AY=V:PflSX=24:PA >LX 

SY=32 

920 PRINT CHR» (235 "!"::TAB: PLOT 36B >ftB 

,1,1:M0VE X,Y:PRINT CHRt(247);:TAS0 

FF: PRINT CHR» (23) "0"; 

930 FHJ=0:tHILE FEU=0:A»=INKEYJ:6DS >LX 

UB 1390 

940 S4END >DB 

950 GOSUB 970 >JK 

960 GOTO 930 >AD 

970 IF Y=18 THEN 1010 >NA 

980 IF Y=50 THEN 1060 >NC 

990 IF Y=82 THEN 1110 >NE 

1000 IF Y=26 THEN 1160 >FC 

1010 IF X=3B6 THEN NBt=NBt+"i":BDTu >FP 

1300 
1020 IF s=410 THEN NB$=NB$+"2":60T0 ;FD 

1300 
1030 IF X=434 THEN'NB$=NB$+"3":E0T0 >F« 

1300 
1040 IF X=45B THEN NB*=NB*+"0":BQT0 >FR 

1300 

1050 IF X=482 THEN 1200 >PH 
1060 IF X=386 THEN NB$=NB*+*4":G0TB >FY 

1300 
1070 IF X=4Î0 THEN NB$=NB$+"5":E0TB >FM 

1300 
1080 IF X=434 THEN NB*=NB$+"à°:Ë0T0 M" 

1300 

1090 IF X=458 THEN 0Pt="+":G0T0 131 >BN 


1100 IF X=4B2 THEN OP$="-":GOT0 131 >BD 


1110 IF X=3B6 THEN NB*=NB$+"7":G0TD >FX 

1120 IF X=410 THEN N8*=NB$+"S , :G0T0 >FL 
1300 
1130 IF X=434 THEN NB»=NB*+"9":60T0 >FV 

1140 IF X=458 THEN OP*="x":BOTO 131 >CJ 


1150 IF X=482 THEN 0P*="/":BOTO 131 >BL 


1160 IF X=53B THEN 1240 >PR 

1170 IF X=570 THEN NB=0:NB*=":T=0; >EC 

FLAG=0: FLABft=0: 0P$=" " : FRINT#5, STRIN 

, G»(1Û,"."S;"0";:RETURN 



: i 1180 ÏF ï=602 THEN BOTO 1730 ; 
1190 RETURN 

1200 IF FLABA=1 THEN RETURN : 
1210 IF NB$="" THEN NE$="0. ":F'lh6A= : 
1:B0T0 1300 

1220 FLA8A=l:NBt=NB$+".":BDT0 1300 : 
1230 RETURN 

1240 IF 0F*='7" THEN T=T/NB 
1250 IF 0P»="x" THEN T=T*NB 
1260 IF 0P*="+" THEN T=T+NB 
1270 IF 0P»="-" THEN T=T-NB 
1280 FLAfl=l : 

1290 T*=STRtiT!:FRINTt5,STRING$ili- 
LEN!Tti."."};T$;:NBt="":RETURN 
1300 NB=VAL !NB$! i PRINTI5, STRINBt i 1 1 
-LEN(NB*),". U );NB*::RETURN 
1310 T=NB 

1320 NB=0: NBt=" " : FLABfl=0: RETURN 
1330 MOVE B,B:BRAW G,H,0:BRAW D,H 
1340 DR»! D.B:DRAW B,B:HOVE 6+2, B-2 



1350 DRAM D+1,B-2:DRAW D+1,H-2:M0VE : 
B+2.B-2 

1360 DRflU û+2,H~4:H0VE D+3, B-2: DRAW '. 
D+3.H-6 

1370 MOVE G-!,B:DRAB B-1,H,0 : 
1380 RETURN : 

1390 IF A$=CHRS(32! THEN FE0=1:RETU : 
RN 

1400 IF A*=CHR*(243i THEN X=X+PASX 
1410 IF A»=CHR»!242! THEN X=X-PASX : 
1420 IF AS=CHR$Ï24Ï) AND Y<>26 THEN 
Y=Y-PASY 

1430 IF A»=CHR$(240! AND Y<>26 THEN 
Y=Y+PASY 

1440 IF A»="l" THEN X=386:Y=18:60SU 
B 970 

1450 IF fi*="2" THEN »=410:Y=iB:608U 
B 1020 

1460 IF A*="3" THEN X=434:Y=1B:60S!J 
B 1030 

1470 IF A$="4" THEN X=386:Y=50:608U 
B 1060 

14B0 IF A*="5" THEN X=410:Y=50:GOSU 
B 1070 

1490 IF A*="6" THEN X=434:Y=50;B0SU 
B 1080 

1500 IF At="7" THEN X=386:Y=82:G0SU 
B 1110 

1510 IF A*="8" THEN X=410:Y=B2:60SU 
B 1120 

1520 IF At="9" THEN X=434:Y=S2:G0SU 
B 1130 

1530 IF At="0" THEN X=458:Y=18:G0SU 
B 1040 
,[1540 IF At="-" THEN X=482:Y=50:BDSU 
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B il 00 




1550 IF A*="+» THEN X=45S: Y=5Û:GOBU 


>SR 


B 1090 




1560 IF A$="X" OR A*="s" OR A$="*" 


)CF 


THEN X=45B:Y=82:B0SUB 1140 




1570 IF A*=":" OR A*="/" ! THEN X=4B2 


>RU 


:Y=82:60SUB 1150 




15B0 IF h*="=" OR A*=CHR*Î13) THES 


>YA 


X=53B:Y=26:S0SUB 1140 




15=0 IF A*="C" OR A*="c" THEN X=570 


>RK 


:Y=26:6ÛSUB. 1170 




1600 IF At=""" THEN ï=602: ï=26:G0SU 


>HC 


B 11B0 




1610 IF A*=V OR M=%" THEN X=4B2 


>go 


:Y=1B:60SUB 1050 




1620 IF X=506 THEN X=53S:Y=26 


>BR 


1630 IF ï=562 THEN X=570 


>RP 


1640 IF X=594 THEN X=602 


>RR 


1650 IF X=57B THEN X=570 


>RZ 


1660 IF X=546 THEN X=53B 


>RZ 


1670 IF X=514 THEN X=4B2:Y=1B 


>«V 


16B0 IF X>602 THEN X=602 ELSE IF s< 


>PD 


386 THEN X=3S6 




1690 IF Y>B2 THEN Y=S2 ELSE IF Y<13 


>KF 


THEN ¥=18 




1700 PRINT CHR*(23)"!";:TAB:PLBT 36 


>TL 


S,1,1:HDVE AX,AY:PRINT CHR*!247Î;;H 




OVE X,Y:PRINT CHR* (247) ; : TASOFF 




1710 PRINT CHR* (23) "0" ; : AX=X : A¥=Y: R 


>KH 


ETURN 




1720 ' 


>YC 


1730 " BLOC-NOTES 


>YD 


1740 ' 


>YE 


1750 X=376:Y=34B:FASX=8:PASY=iè:AX= 


>MX 


X:AY=Y 




1760 PRINT CHR*i23i"l";:TAE:PL0T 36 


>CB 


8,1,1:M0VE X,Y:PRINT CHR* (232);: TAS 




OFF:PRINT CHR* (23) "0" j 




1770 IF NIV=3 THEN AT=AT-1:L0CATE 2 


>CH 


,2:PRINT INT(!AT/2MO)*60!;:ELSE 00 




TO 1790 




1780 IF AT=0 THEN SOTD 2650 


>UV 


1790 A*=INKEY*:IF A*="" THEN 1770 


m 


1800 IF A*=CHR*(224) THEN CLS #3:PR 


>L9 


INTt3:PRINTt3," BLOC-NOT 




Cq«.DpTîiJT*T il 




L3 il RlWiffO, 




"ifiOTQ 1730 




1810 IF A*=CHR*(240) THEN Y=Y+PASY 


>BK 


1B20 IF A*=CHR*(241i THEN Y=Y-PASY 


>ffî 


1B30 IF A*=CHR*(242) THEN X=X-PflSX 


m 


1640 IF A*=CHR*Î243) THEN X=X+F'ASX 


m 


1850 IF X>624 THEN X=34B:Y=Y-16 


>YR 


1860 IF X<376 THEN X=376 


>RB 


1870 IF Y>348 THEN Y=34B 


>RE 


1B80 IF Y<140 THEN Y=140 


>RB 



^ 1B90 IF A*=CHR*(13) AND NIV=3 THEN 
BOSUB 2000; BOTO 2650 
1900 IF A*="l" AND NIV=3 THEN BOSUB >0T 

2000: BOTO 2650 

1910 IF A*=CHR*Ï13! AND (NIV=2 AND >HX 
AL=iï THEN BOSUB 2000iBOTO 2710 
1920 IF A$=CHR$(13) AND NIV03 THEN >«K 

BOSUB 2000: BOTO 490 
1930 IF At=CHR*(32! THEN FOR A=0 TD >R0 

7:ELSE BOTO 1970 
1940 FOR B=0 TO 15 >LF 

1950 PLOT X+A,Y-E,i:NEXT >UY 
1960 NEXT: BOSUB 2000 >PB 

1970 IF A*OCHR*C241) AND AJOCHRtf XK 
240) AND A*OCHR*!242! AND fttOCHRJ 
(243! AND »<>"" THEN HDVE X,¥:PRIN 
T CHR$ (23! "l' ! ;:TAB: PRINT At::X=X+PA 
SX:TABOFF:PRINT CHR$!23) »0"; 
i960 PRINT CHR*(23i"l"::TAE:PLQT 36 >YB 
8,1,1:H0VE AX,AY:PRINT CHR* ( 232 ) ; : M 
OVE X,V:PRINT CHR*<232);:TAG0FF:PRÏ 
NT CHR$!23i"0"::AX=X:AY=Y 
1990 BOTO 1770 >PB 

2000 PRINT CHR$(23)"!";:TAB:PL0T 36 }QS 
B,l,i:HOVE X, Y: PRINT CHR*(232);:TAB 
OFF:PRINT CHRti23!"0";:RETURN 
2010 ' )XF 

2020 'VARIABLES >XG 

2030 : _ >XH 

2040 X2=INT!RND*5!«100+150 >UT 
2050 X4=INTiRND*6);IF X4=0 THEN 205 >CD 

2060 X7=ÏNT(RNB*6):IF X7<2 THEN 206 



K ^ THEN 2150 ElSE 2250 

2160 RESTORE 3!00:F0R 1=0 TO 4:READ >VH 
AXS* ! I ) : NEXT I: X5*=AX5* ( INT (RND*5! 

2170 X6=INTCRND*30!:SF X6<10 THEN 2' >NF 
170 ELSE 2180 

21B0 Xli=(INT(RND*7i*4):IF X1K10 T >UC 
HEN 2180 ELSE 2260 

2190 RESTORE 31 10; FOR 1=0 TO 4;READ >VN 
AX5* ! I ! : NEXT I : X5*=AX5* ( INT ÏRND*5i 



2070 X9=INT(RND*12):IF X9<4 THEN : 



20B0 X12=(INT(RND*4)*250i:IF X 1 2=C 

THEN 2080 

2090 X14=INT(RND*9):IF X14<2 THEN 

090 

2100 RESTORE 3070:FQR 1=0 TO 4:READ 

AX1*(I!:NEXT;X!*=AX1$!INT<RND*5)) 
2110 RESTORE 30B0:F0R 1=0 TO 3:READ 

AX3* ! I ) : NEXT I : X3*=AX3* ( INT (RND»4! 

2120 IF X3$="boucher-charcutier !: TH 
EN 2130 ELSE IF X3i="«Khand de pr 
iueurs" THEN 2160 ELSE IF X3*="lait 
iei-fraraaqer" THEN 2190 ELSE IF X3* 
="poi55onnier" THEN 2220 
2130 RESTBRE 3090:F0R 1=0 TD 4;READ 
AX5* il): NEXT I : X5*=AX5» ! INT (RND*5) 
) 

2140 X4=INT(RND*100i:ÎF X6<50 THEN ; 
2140 ELSE 2150 
2150 Xl!=(INTiRNB*25)*4):IF X1K50 : 



2200 X6=INT(RND*70):IF X6<30 THEN 2 >NT 
200 ELSE 2210 

2210 Xl!=iINT(RND»!6)*4):IF X1K30 >vp 
THEN 2210 ELSE 2270 

2220 RESTBRE 3Î20:F0R 1=0 TO 4:READ >VB 
AXS* ! I ) : NEXT I ; X5t=AX5* ( INT (RND*5) 

2230 X6=INT(RND*B0):IF X6<40 THEN 2 >NE 

230 ELSE 2240 

2240 Xli=iINTiRND«lBj*4):IF X1K40 /VA 

THEN 2240 ELSE 22S0 

2250 RESTORE 3!30:F0R 1=0 TO 3:READ >JD 

AX8* i I ) ; NEXT I : X8S=AXBS (INT (RND*3) 
):B0T0 2290 
2260 RESTORE 3140:F0R 1=0 TO 3:READ >JF 

AXS* ! I ! : NEXT I : XBt=AX8* (INT (RND*3) 
!:BOTO 2290 
2270 RESTORE 3150:F0R 1=0 TO 3:READ >JH 

AX8*( ï ) : NEXT I : X8$=AXS* S INT !RND*3) 
i:BOTO 2290 
22B0 RESTORE 3160:F0R 1=0 TO 3:READ >VZ 

AX8* (I ) : NEXT I : XSt=AX8* ! INT (RND*3i 

2290 Xlût=AX5$(INTiRND*5S):!F X10*= >PG 

X5t THEN 2290 

2300 X17=INT(RND*30i:IF ï!7<15 THEN )B0 

2310 IF Xl$="diJ!" THEN X13t= ,! !0" >YD 
2320 IF Xl*="huit" THEN X13$="B" >ZB 
2330 IF Xl*="oniE" THEN X13*="ll" >AC 
2340 IF Xi*="seize" THEN X13*="16" >BU 
2350 IF Xl*="ne!if' THEN X13*="9" >ZT 
2360 RESTORE 3170:FDR 1=0 TB 3:READ >ZB 
AX15*(I):NEXT I:X15*=AX15*(INT(RND 
«311 

2370 RESTBRE 31S0:F0R'I=0 TO 4:READ ÏZH 
AX16*(I):NEXT I:X16*=AX16*(INT(RND 
«3)1 

23B0 IF X16*="DDu:e" THEN X16=!2 >AZ 
2390 IF X16*="Quinze" THEN Xli=15 >BF 
2400 IF X16*="vingt" THEN X16=20 >AR 
2410 IF Xi6*="Treize" THEN X16=13 >BL 
2420 IF X14t="Trente" THEN X16=30 >BK 
2430 IF X15*="l#90" THEN XR15=1.9 >AH 
f 2440 IF X15*="2t20" THEN XR15=2.2 >ZE 
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2450 IF X15t="2#50" THEN XR15=2.5 >AD 
24é0 ÎF X15t="3#!0" THEN XRi5=3.i >ZB 

24B0 ' TEXTE >VB 

2490 ' >YH 

2500 IF MIV=Z THEN B0T0 2690 >VF 
2510 IF NIV=2 THEN CLB 11 >R8 
2520 PRINTti." A ":X!$;" heures, a >JP 
vec";X2; "francs, en poche, "jpRINTti, 
" je suis parti chez le " ; X3$; " , H : P 
RINTti," 8";x4;"km de chez moi," 
2530 PRINTti," J'ai vu ":X5$:" en >HF 
promet ion' :PRINT#1," 6": X6; "francs 
le kg, mais j'ai pKKK ":PRINTtl, 
1 prendre";X7;X8*|" l";X9; "francs"; 
PRINTti," Pijce." 

2540 PRINT#1," Le marchand m'a con >VB 
seiiK ":FRINT»i," ";X10t;" @";Xil: 
"francs le kg,":PRINT!l. " alors j'e 
n ai pris";X12; "grammes." 
2550 PRINTti," En sortant S ";X13$ >CD 
;" h";X17i"niin,":PRINTH," j 'acheta. 
i ë la poste en face" ;X14; "timbres" 
:PRINTtl," S ";X!5$r francs." 
25è0 PRINTti," "jXli$;" minutes ap >YM 
ris, j'ftais de retour":PRINTti," c 
nez moi." 

2570 IF FINI=1 THEN FINI=0:PRINTt2, >GL 
" Vous pouvez maintenant":PRINTt2, " 
virifier ..."iLBCATE 29,2!;PRINT 
" ";:CALL MBls;RETUfiN 
2580 IF NIV=2 THEN RETURN >Uû 
2590 ' >YJ 

2600 ' QUESTIONS >YÂ 

2410 ■ >YB 

2620 IF NIV=3 THEN PRINT14:PRINT#4, >QD 

Four le BLOC-NOTES, ":PRINT# 
4," appuyez sur 'COPY'":PRINT 
MiPRINTM," Si vous avez fin 
i avant, ":PRINTP," appuyez s 
ur "!'";îUEflTE 2i,23:FRINT"?"::ELS 
E BOTO 2690 

2630 A«=INKEY$ >SF 

2640 AT=AT-î:LOCATE 2,2:PRINT INTU >R« 
AT/2000! *60); 

2650 IF ATXO THEN CLStl:NIV=4:L0CAT >KD 
E 20,9:F'RINT" ":L0CATE 20,10:PRIN 
T" ? ":LOCATE 20,Î!:PRINT" ":L0Cfl 
TE 2,2:PAPER 1:PRINT" ":PAPER 
0:B0T0 2690 

2660 IF A$=CHR$(224! THEN 1730 » 
2670 IF A$="!" THEN AT=5 >0J 
26B0 BOTO 2630 >NE 

2690 y=0+l:Xfi=0:L0CATE 29,2i:PRINT >EB 

2700 IF NIV=2 AND 0O11 THEN CLS#2: >UN 



f SOSUB 2510:FR!NT»4:FRÏNTi4," 

ur ie BL0C-N0TEB,":PRINT#4, " 

appuyez sur COFY ";PRINTt4:PRINTt4 

Pour ia question, ":PRINT#4." 

appuyez sur ' ENTER '": LOCATE 

2i,23;PRINT"? !, ;::AL=i:ELSE BOTO 275 

2710 A»=INKEY* >HE 

2720 IF A$=CHR$i224> THEN 1730 >MK 
2730 IF Â$=CHR*i!3i THEN AL=0:CLS« >QZ 
:LOCATE 20,9:PRINT" ":L0CATE20,1 
OiPRINT" ? ":L0CATE 20.1i:PRINT" 




":BBT0 2750 
2740 SOTC 2710 
2750 IF 0=7 THEN 2B30 
2760 IF Q=B THEN 2B40 
2770 IF 3=9 THEN 2B50 
2780 IF §=10 THEN 2B60 
2790 IF 0=11 THEN CLS#l:CLSt2:CLSt3 
:CLSt4:E0T0 3270 
2800 XQ=INT1RND*135+1 
2B10 IF YQ<X0>=1 THEN 2B00 
2B20 CLS 12: ON XB BOTO 2870,2880,28 
90, 29ÎÎ0, 2920, 2930, 2940, 2950, 3000, 30 
10,3020,3030,3035 
2B30 CLS #2:B0T0 2910 
2840 CLS #2: BOTO 2970 
2B50 CLS #2: BOTO 29B0 
2860 CLS t2:BBTD 2990 
2B70 PRINTS2," Quelle distance ai- 
le parcourue en tQut":PRINTt2, " pou 
r faire mes achats ? !en mîtres)":6 
OSliB 3600:YQ<1)=1:G0T0 490 
2880 PRINTt2," Quel temps ai- je pa 
sst chez le":PRINTt2," ";X3t;" ?":S 
OSUB 3610:YGK2!=1:B0T0 490 
2B90 PRINTt2, " fluel temps ai- je pa 
ss{":PRINTI2," 6 la poste ?":B03UB 
3620: YO (35=1: GOTO 490 
2900 PRINT#2, " Quel temps total ai 
-je mis pour le":PRINTt2," trajet e 
t les courses ?":6QSUB 3630:YGH4i=i 
:GQT0 490 



>NA 
>NX 
>NA 
>ND 
>PM 
>VD 

>QP 
>TH 
>MA 



A 2910 PRINT#2, " Combien ai-ie payï 
" chez ie":PRINT#2," ":X3*;" t":BÛSUB 
3640: BOTO 490 

2920 PRÏNT»2," Combien ai-je payi" > 
:PRINT#2," S la noste ?":6BSUB 3650 
:Y0i5)=l:B0TQ 490 

2930 PRINTti," Combien ai-je payi" > 
:PRINTI2," n ;X10»;" ?":BBSUB 3460:ï 
B(6!=1:B0T0 490 

2940 PRINTti." Combien ai-je pavi" > 
:PRINT#2," ";X5$;" ?":BBSUB 3670:YB 
(7i=i:B0T0 490 
2950 IF RIBHT$!X5l.i!="s" THEN PRIN > 
T#2," Combien p}sent" ELBE PRINTt2 
," Combien, pj-se" 

2960 PRINT#2," ";X5J:" ? (en Kg)": ) 
60SUB 3670: YQ (S) =1: BOTO 490 
2970 PRINTI2," Combien me restait- ; 
il en sortant de":PRINT#2," chez ie 
";X3$;" ?":B0SUB 3690:BBT0 490 
2980 PRINTI2," Combien ai-je dipen ) 
si. en tout ?":B0SUB 3700:B0T0 490 
2990 PRIUTI2, " Combien me restait- ) 
il en revenant":PRINTt2," chez moi 
?":B0SUB 3710: BOTO 490 
3000 PRINT#2, " Ouel est le poids d ) 
es":PRINT#2," " ; XS* ; " en grammes Y" 
:B0SUB 3720:Y0(9!=!:B0TB 490 
3010 PRINTI2, " A quelle heure suis '; 
-je revenu":PRlNTt2," chez moi ?":S 
OSUB 3730:YQ(!0)=1:SOTO 490 
3020 FRINT#2, " A quelle vitesse ai : 
-je rouK":PRINTt2," ë l'aller ?":B 
OSUB 3740: YO < 1 1 ) =1 : YQ i 12 ) = i : SOTO 49 

3030 PRINT#2," A quelle vitesse ai 1 

-je roui{":PRINT#2," au retour ?":3 

OSUB 375û:Ya(12)=i:Y3ili)=l:B0T0 49 



3035 IF RÏBHTt!XiO*,!)="s" THEN PRI : 

NT#2," Combien pjsent" ELBE PRINTi 

2, " Combien p}se" 

3037 PRINT#2," ";X10$;" ? (en Kg) " : 

;EASUB 36B0:Y0(13Î=!:BQT0 490 " 

3040 ' 

3050 " BATAS VARIABLES 

3070 DATA di*, huit, onze, seize, neuf : 

30B0 DATA boucher-charcutier, marcha 
nd de primeurs, laitier-fromager, poi 
ssonmer 

3090 DATA le ris de veau, le rfti de 
boeuf, l'entreclte, la longe de porc 
,1e carrf d'agneau 
3100 DATA les tomates, les endives,! 
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es haricots, les cerises, les oranqes 
31 lu DATA le gruy}re,Ie Mol lande, le >ZA 
Souda, le i roulage corse, le Roguafor 

4- 

3120 DATA les inouïes, ie thon, les me >Tèi 
riuchons, les sardines, le saumon 
3130 DATA steaks hachvs, paupiettes, >KK 
petits pîtÇé, saucisses 
3140 DATA betteraves, laitues.avacat >QB 
s, kiwis 

3150 DATft camemberts, petits Servais >ME 
,yaourths',petits enivres 
3160 DATA truites,crabes, soies, homa >KE 
rds 

3170 DATA iINFUT90,2ÏNPUT20,2INPUT5 >RR 
0,3INPUTÏ0 

31B0 DATA Bouze.Buinze.v'ingt.Treize >J3« 
, Trente 

3190 ' ' >YF 

3200 ' BILAN >XK 

3210 ' >XJ 

'3220 IF 9=1 THEN 490 >HR 

3230 CLSM:FRINT»4:FRINT#4," >FB 

BILAN" 
3240 PRINT#4;FRINT#4." NOTE >¥T 
flOYENNE'^PRINTM," 

3250 IF Q=l THEN 3330 >NB 

3240 PF;lrtT#4, " ";PT5;"/20 >EJ 

" ; ! fPTS* 1 10/ (0-1 ) î î +PT0TALÎ \PAR 
TIE;"/20" 

3270 IF 0=11 AND NIV=4 THEN FINI=i: >LG 
GOSUB 2520" 

3280 IF 0=11 THEN MODE 2:PRINT:PRIN >TA 
T" ' BILAN GENERAL' ! :P«INT" 

— ., : prïsT: PRINT 

3290 IF 0=11 THEN PRINT:PRINT:PRÏNT >FM 
11 NOTE SUR 20 : " ; F'TS 



NT m ;l 



3300 IF 0=11 THEN PRIMT:PRINT:PRI 

" NOMBRE DE PARTIES : ": PARTIE 

3310 IF 0=11 THEN PRINT:PRINT:PF;INT >UB 

" ' MOYENNE BENERALE SUR 20 : •; iiP 

TS« (10/ (B-i ) î ! +PTDTAL! \PhRTIE 

3320 CALL 4BB14 >UC 

3330 IF 0=11 THEN PARTIE=FARTIE+!:A >TC 

IDE=0:ESSAI=0:PTOTAL=PTOTAL+PTS:PTS 

=O:B=0:F0R 1=1 TO J2:YQ(IS=Û:NEXT I 

:E0T0 220 

3340 BOTO 490 >FJ 

3350 ' >YFj 

3360 ' AIDE >YE 

3370 ' " >YF 

33B0 AIDE=i:CLS #4: ON BOTO 3390,3 >BJ 

390,3390,3390,3390,3390,3520.3530,3 

540,3550 

3390 DN XB BOTO 3400,3410,3420,3430 >DT 

, 3440, 3450,3460, 347(1 , 3480, 3490, 3500 

,3510,3470 

3400 PRINT#4;FRINT#4," Un kilomitr >AF 

e = 1000 m}tres";FRINTt4:PRINTt4," 

II Faut compter raIler":FRINT#4," 
et le retour, ": BOTO 3560 
3410 PRINT#4:PRINT#4," On connait >FF 
l'heure de dîpart":PRINTft4," du d 
omicile et l'heure de";PRINT#4, " 
dipart du magasin. ":PRÏNT#4," A qu 
elle heure y est-on":FRINT#4," re 
ntrl ?":60T0 3560 

3420 PRINT#4;PRINT#4," On connaît >TB 
l'heure d'entr{e":PRINT#4," % la 
poste. ":PRINT»4iF'RINT#4," Et i'neu 
re de sortie ?":60T0 3560 
3430 PRINT#4:PRINT#4," Trouvons le >RD 

temps pass{ pour":FfaNT&4," l'ai 
1er et les courses. ":FRINT#4," A.jo 
utons le temps rus pour la ":FKINT# 




poste et 






:G0T0 356 





3440 FRINT#4ïPRINT#4, " Combien de ■' 

tois doit-on"rPRINT#4." donner "; 

X15$;" F ?":60T0 3560 

3450 PRINT#4:PRÏNT#4." On connaît 1 : 

e prix d'un kilo. ":PRINT#4, " Un qua 

rt de kilo Fait 250 g,":PRINT»4," I 

I Faut donc diviser 1000 q par 4";: 
PRINTM," Et pour";X12;" grammes ?" 
':EÛTD 3560 

3460 PRINT#4:PRINT#4," On connait 1 : 
e prix d'un fciIo.":PRINÎ#4;FRINT#4. 

II Quel poids en avons-nous àchet-î ? 
":G0T0 3560 

3470 PRINT#4:PRINTI4," Il Faut 100 > 
g pour 1 kg, ":PF;INT#4:FRINT#4, " 
Donc 100 g vaut 0.1 kg, ":G0T0 3560 



RINT#4," Buei est le 
":PRINTt4:PRINT#4, " 
;X7;" ";XB*;" ?":S0T0 



3480 PRINT#4:i 

poids d'un(e^ 

seul(e) des" 
3560 

3490 PRINT#4:PRINT#4," On connait >FY 
l'heure de dîpart.":PRINTi4," lit 
aut ajouter ie temps passï":PRINT#4 
," au magasin, pour la poste et"; 
PRINT#4," le retour, ":B0T0 3560 
3500 PRÏNT#4:F'RINT#4, " Il faudrait >LL 

savoir la distance";PRlNTt4, " qu 
e l'an a parcourue ë 1* aller" :PR1NT 
#4," ainsi que le temps mis. ";S0T 
3560 
3510 PRINT#4iPRINT#4," II faudrait >HP 

savoir la distance":PRINT#4," qu 
e l'an a parcourue au retour" :PRINT 
#4," ainsi que ie temps mis,":G0T 
3560 
3520 PRINT#4:PRINTi4," II Faudrait >CV 

caicuisr ie prir'iFRINTM," des 
";X7;" ";X8$;".":PRINT#4," Puis ai 
outer ie pris pays, ":PRINTt4," ": 
X!0*;",":B0TD 3560 

3530 PRINT#4:PRÏNT»4," Il faut d'à >DH 
bord savoir ":PRINTi4," combien o 
n a dipenst chez ":PP.INT#4, " le " 
;X31;".":PRINT#4," Ensuite, retran 
cher cette ":PRINT#4," somme de " 
;X2;" F.":S0TG 3560 

3540 PRINT#4:PRINT#4," II Faut d'à >Tv 
bord savoir ":PRINT#4," combien a 
n a d-Cpensî chez "i PRINTM," le " 
;X3$;".":PRINT#4," Ensuite, ajoute 
r la dCpense de":PRINT#4," la pos 
te,": GOTO 3560 
3550 PRINT#4:PRINT#4," Il Faut d'à >WM 
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U 



bord savoir conbiHi":PRINT#4,° on 
a dîpensi an tout. " :PRINT#4. " Ens 
uite, retrancher cette Ei ïPRINT#4= ,: 
somme de ";Éj" F. " : 6DT0 3540 

3560 CALL iBB16:G0TD 490 

3580 ' BONNES REPONSES 

3590 ' 

3600 R=X4*2*1000:L»="M - :REÏURN 

3610 R=0: RETURN 

3620 R=0:RETURN 

3630 R=X 16+X 17; Ut="MIN" : RETURN 

3640 R=t!Xil\4)*!X12\25Q);+iX7t«9i: 

Ut="F":RETURN 

3650 R=j:R15*X 14: U*="F" ; RETURN 

3660 R=(Xil\4)*(X12\250) : Lit = ,! F" :RET 

URN 

3670 R=0: RETURN 

36S0 R=Xi2/ÎOOO:U*="K6' i :RETURN 

3690 R=X2-C!iXll\4!*iX12\250)i + «7* 

X95»:Ut="F":RET!JRN 

3700 R=((Xll\4)*(XI2\25ô)>+{X7*X93+ 

!XR15*X 14) : L)t="F" : RETURN 

3710 R=X2-(iijU\4i*(X12\250i)i-(X7* 

X9HiXR15*X!4!i:UI="F":RETURN 

3720 R=0: RETURN 

3730 R=X16+X17:U*=X13S:RETURN 

3740 R=0: RETURN 

3750 R=0: RETURN 



3760 ' 


>ÏJ 


3770 'GESTION DES REPONSES 


>YK 


37S0 ; 


>ZA 


3790 IF R=VfiL!Ri*S AND U*=UFFERtiUi 


>8P 


$! THEN BOSUB 4010: GOTO 3840 




3800 IF R=VAL(Rl*i ANS lFPER$iUW! = 


>AU 


"m" ÂND Li$="MIN" THEN BOSUB 4010:6 




0T0 3840 




3810 IF UPPER$iUH)="P ANB R=0 THE 


m 


N GOSUB 4010: BOTO 3B40 




3B20 ÏF ESSAI=1 THEN BOSUB 4140:605 


>vu 


UB 3910:60T0 3SB0 




3830 GOSUB 4140:ESShI=1:3OT0 490 


>AX 


3840 IF R5SAI=1 AND fiIDE=l THEN PTS 


>LR 


=PTS+0,5 




3850 IF ESSAI=1 ANB AIDE=0 THEN PTS 


>JK 


=FTB+1 




3B60 IF ESSAI=0 AND MDE=0 THEN PTS 


>JL 


=PTS+2 




3870 IF ESSAI=0 ANB MBE=I THEN PTS 


>JH 


=PTS+1 




38B0 ESSAI=0:AÏDE=0 


m 


3890 BOTO 2690 


>PE 


3900 ' 


>YE 


3910 ' AFFICHAGE BONNE =E=ONSE 


>YF 


3920 ' 


>Y6 



3930 CLS t4;PRINTt4:PRINT#4, i ' La b . 
onne riponse {tait :";FRÎNTi4 
3940 IF X0=lû THEN PRÏNT#4:PRINTi4. 
":U$: " H »:Bî" H!N":GOTO 397 



3950 IF R=0 THEN PRINT»4:PRINT#4," 


: EP 


IMPOSSIBLE":BQTO 3970 




3960 PRINT#4:PRINT#4," ":R; ,! 


>FE 


t}lB 




3970 IF NIV=2 THEN GOBUB 2510 


m 


39B0 CALL J:BB16 


>VE 


3990 RETURN 


>BE 


4000 ' 


>XG 


4010 ' NU5I0UE BA6NE 


>XH 


4020 




4030 LOCftTE 73,24:PRM" JUSTE ": 


>BH 


4040 RESTORE 4050:BDRBER 0,26:FDR'N 




OTE=l TO 34:READ A ;,C,D:S0UND i,A, 




B:SOUND 2,C,D:NEXT N0TE:B0RDER 0:RE 




TURN 




4050 DATA 106,20,426,20,80,15,319,1 


>bb 


5,0,5,0,5,80,20,319,20,71,20,426,20 




,63,20,426,20 




4060 DATA 80,15,319,15,0,5,0,5,80,2 


>MJ 


0,319,20,84,20,426,20,106,20,426,20 




4070 DATA 80,15,319, 15,0, 5,0,5, BO, 2 


:>NN 


0,319,20,71,20,426,20,63,20,426,20 




4080 DATA 80,40,319,40,84,20,426.20 


>PE 


,106,20,426,20 




4090 DATA 80,15,319, 15,0,5,0,5,80,2 


>HT 


0,319,20,71,20,319,20,63,20,319,20 




4100 DATA 60,20,478,20,63,20,478,20 


>CX 


,71,20,478,20,80,20,478,20 




4110 DATA 84, 20,426,20, 106,20, 426.2 


>DU 


0,95,20,426,20,84,20,426,20 




4120 DATA 80,80,319,80,0,0,0,0 


m 


4130 ' 


>YA 


4140 ' NUSISUE PERDU 


>YB 


4150 ' 


>vc 


4160 LOCATE 74,24:PRINT" FAUX "; 


:>ar 


4170 RESTORE 41B0:B0RDER 0,26:F0R N 


>FP 


0TE=1 TO 13:READ A,B,C,D;SOUND 1,A, 




B: SOUND 2,C,D:NEXT NOTE:BORDER 0:RE 




TURN 




4180 DATA 63,80,319,80 


)PE 


4190 DATA 71,20,319,20,80,20,319,20 


>CH 


,63,20,319,20,71,20,319,20 




4200 DATA 80,40,319,40,40,40,319,40 


>AY 


4210 DATA 47,20,478,20,40,60,478,40 


>ftO 


4220 DATA 53,80,319,80 


>PY 


4230 DATA 63,40,319,40,80,40,319,40 


>A6 


4240 DATA 71,80,426,80 >PZ 



AM* 
BOGGLE 

Ce jeu de mots se joue 
avec 16 dés, qui sont 
remplacés par des 
séquences aléa oires 




I 



I faut un dictionnaire pour 
vérifier, le cas échéant, la 
bonne orthographe des mots. 
Ce jeu ne compte pas les 
points, il afficne les lettres et tient le 
tableau des scores des joueurs. 
"AMBOGGLE.BAS" inclus la règle du 
jeu, des exemples et le tableau pour 
compter les points. 

Mot de 3 ou 4 lettres... 1 point 

Mot de 5 lettres 2 points 

Mots de 6 lettres 3 points 

Mots de 7 lettres 5 points 

Mots de 8 lettres 1 1 points 

# Philippe CANOUIL 



où ON ERKGF, "-" " : __. -6.102.10 

2.102,1Ù2,60.60.24:3YKB0L =7,196.19 

3. 198, 2i4. 124. 108. 68 

60 N0DE 0:DIN des*tli,6J,alpha(2M« 

desiii7).deil6).sens(16) 

iuO uJCATE 3. 10: PRINT ''** B0SSLE ** 

110 FOR 1=1 TQ 1 6 : FDR u=l TD 6:READ 
a$:de5$(i,u)=a$ïNEXÏ u.i 
120 DATA U.L,I.N,R.E.A.F.X,R.I.0.I, 
B,E,F,E.3.E,3.L,C.A.E,S.R. I.H.O.A.fi 
.A,I,0,T,E,D.3.N.T,O.E,A.H.O,Q.B.J 
130 DATA K.E.T.N.u.O.B.A.L.I.S.T.Y. 
U.B,E.L,N,N,S.R,H.E.I.D,C.N.P,E,A.E 
,N,A.D,Z,».E.J. I.T.5.N.E.S.U,7,F.L 
150 * routine adresse d : un caract 
ère dans la grille * 
170 HEH0RY WFFFiFQR i=0 T0 B:READ 
a:P0KE »X>0+i,a:NEXÏ 
1B0 DATA l3e,0.tai.!<a5.lbb,«22,'W9, 
4a0,k9 

200 '* routine doubie hauteur en (R 
Ait) « 

220 FOR a=!<A02û T0 M020+124:READ b 
*:P0KE a,VALi"5"+bM:NEXT 
230 DATA dd. 6e. 00, dd, 66.01. 46,23.5e 



19 




250 DATA c5, ûb, Û3.54.5d. 1t. iO.+b, II 

260 DATA 39.i9.3e,19.cd e 5a,bD,3e,îe 

,cd 

270 DATA 5a, bb. 06.04. 00. 00=00. 4t. 5e 

,79 

280 DATA 00. 00. 00.7b, cd. 5a. go. cd, 5â 

.hb 

290 DATA 23,i0,ed.3e. 19.cd.5a.bb.3e 

,H 

ïôû DATA cd. 5a, bb, 06. 04, 00,00,00,47 

510 DA"S 79,O0.OU^U,"b.CC.5d,QD.Cd 

.5a 

520 DATA bb, 23, 10, ed. 3e, -fe.cd, 5a. bb 

f3e 

J30 DATA 0a.cd.5a.bb. 3e, OS. cd, 5a. bb 

.3s 

340 DATA ît. ce. 5a, bb. 3e. Ob. cd. 5a, bb 

,c! 

350 DATA el.23.i0.90.c9 



.j/y * rcutins gcudie iwAie en wuu 
a hliri * 

390 FOR a=&B000 TQ &fiO00+itl21:READ 
b$:POKE a ; VflL( n &"+btîtNEXT 

400 DATA 21. f5,G9, 22,84, 31, 22,86,31 











410 


DATA 




40. 


.08 








420 


DATA 


CD 




,0-1 








430 


DATA 


21 


45, 


440 


DATA 


08 


19. 


.30 








450 


DATA 


81 


3s, 


.18 








460 


DATA 


04 


11. 


,32 








470 


DATA 


SI 


10. 


.71 








430 


DATA 


30 


47, 


.b5 








W 


DATA 


--■ 




.81 






DV<. 


DATA 


CG 


a4, 


51 C 


DATA 80 


o7. 


,44 








Zl'ZC 


DATA 


4t 


55, 


,47 








530 


DATA 


45 


20, 



21.80 
b5,e5 
Sl,cd 
45.20 

06,0c 



Biî,81,22 

22.86.31 



22 


86 


81 


>DH 


a4 


80 


c? 


>DV 


49 


4b 


41 


>DA 


c5 


cd 


a4 


?ny 



,30 



540 DATA cl, 2; 

150 DATA 81,2. 

86 

lôQ DATA 81 . 1C 



ed 



■ DATA 5b. 82 



;30 DHiH 16, du. 

Bl 

m DATA 11 



« DATA 81. ed 
.0 DATA b7,18 



DATA 97,18. 

.440 DATA 87.18 
DATA 04, cb 
DATA 04. cb 
DATA 04. cb 

680 DATA 04. cb 



96, S: 



:-e,i : 



Bf, 18,02 
9f.iB.02 
at. 18, 02 
bî. 18,02 






700 : * relevé Ces adresses des cara 

cteres aipha et de travail * 

720 FOR i-65 TO 9Q;P0KE *AOûl.::CAL 

L lAûOO:aipha!:-64ï=PEEK!SA009i+256 

*PEEK!lAOOAi;N£XT:FQR 1=230 TD 246: 

:POKE icA001.i:CALL M00O:desi ii-230 

i=PEEKiW!009S+256*PEEKilAO0A):NEXT: 

POKE iA0Oi,65;CALL MOOO 

740 '* initialisation adresse qrili 

e caractères pour routine double ha 

uteur * 

760 i=FEEK!M009!:i=i-B:IF i<0 THEN 

i=i+255:dt'=l ELSE dt=0 
770 POKE SiA03D.i:i=PEEKiMOOAi:i=i- 
i-dt;FDKE M03E.1 
790 ''* init. paramètre jeu * 
310 «DDE 1 : LDCATE 10.10;INPUT"Rsile 

du jeu 0/N";a$:IF af="G" DR a$="o" 

THEN SOSUB 1740 
320 MODE 2:L0DATE 3,3:INFUT "Nombre 

de joueur 1 a 8 ":nbj:IF nbj>8 OR 
nbj<l THEN 820 

B30 DIM nj*inbj):LOCATE 3,6:INFUT " 
Direction des lettres : tout (S)en 
s ou iNJormal ":a$;IF a$="N" OR al 
= M n" THEN dif=0 ELSE dif=l 



840 LOCATE 3, 9; IMPUT 'Temps de rech > 

erche en seconde (fflini=60 ma>L=360)" 

itsltlF tsU60 OR t5i>360 THEN ts!= 

210 

850 LOCATE 3. 12: INPUT "Score de fin ) 

de partie ":scrm:IF scrmJiO THEN s 
crsi=999 

360 LDCATE 3, 15: INPUT "Nombre ne co ; 
up maximum ":coum:ÎF ceum\l THEN co 
um=99 
870 LOCATE 4,19:PRÏNT "Four arrêter ; 

avant le nb de coups ou de peints. 

taire *BREAK* deu;-: rni5 :i :LDCATE 15 
,20:PRÏNT "pendant le déroulement d 
il CHRONO. " 

875 LOCATE 4,22:FRINT "Four passer ; 
en mode LOUPE ou revenir en NORHAL 
appuyez une touche. "rLOCATE 10.24:8 
RINT "UNE TOUCHE POUR LA SUITE. :, :CA 
LL «BBÎ8 

8B0 CL8:FDR i=2 TO nbH2 5TEP 2:L0C ; 
ATE 2.i:FRINT "Nom du joueur No";i/ 
2;:INPUT " ":njt!i/2knjiCi/2i=UFPE 
R*!ni$ii/2S):NEXT 

900 '* jeu calcul aléatoire des 16 
des * 

920 ON BREAK BOSUB 1700:RAND0HÏZE T : 
IMEsMODE 0:L0CATE 3.iO:PRINT "PATIE 
NTEI" 

930 FOR x=l TO 16:dei:;!=0:NEXT:FQR : 
i=l TO 16:al=iNTCRNB*5,9?S*5 
940 d«=!NT!RNB*15.99î+i:IF deïds)=0 ; 

THEN de(dxi=l ELSE 940 
950 GDSUB 1260 : 

960 NEXT : 

980 '* écran tracer du BOGGLE * 
1000 CLS:BOSUB 1550:PEN 5:INK 5,Iid : 
dd=0:FDR y=l TO 4:F0R :<=! TO 4:ddd= 
ddd+i:L0CATE 5+i;ï*2). iy*3!+5: it=CHR 
*î230+ddd!;CALL M020.ïi*:NEXT ;;,y 
1010 GRAPHICS PEN 3: INK 3,i;ddd=0:F : 
OR y=270 TO 126 STEF -48:: FOR «=204 

TO 396 STEP 64:ddd=ddd+!:!F sensid 
dd)=l THEN x I=x-Z8: x2=::+Z8: yi=y-22: 
y2=yl ELSE IF sensiddd!=2 THEN xl=s 
-28: k2=::+2ë: yl=y+22:y2=yl 
1020 IF sens!dddi=3 THEN k1=x-2B:x2 : 
=xi:yl=y-<-22:y2=y-22 ELSE IF sensidd 
di=4 THEN sl=s+2Siï2=xl:yl=y+22;y2= 
v-22 

1030 NOVE :-(l,yi:DRAU s:2,y2:IF sensi 
ddd!=i THEN HOVE sl,yl+2:DRAW ::2,y2 
♦2 ELSE IF sensidddi=2 THEN HOVE al 
.yl-2:DRAW x2,y2-2 

1040 NEXT:NEXT:CALL 43000: 'transî. : 
et aqrand. imaqe en -MOOO a &7fft 
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1060 * attente ordre départ cnrono ,-Xr 
RINT ,: Line touche 3.v.P":CALL LS31E: 

HOC 3«=INKEVtvIF 3* >"' "HEN IF isi >£1 

-qei^O TrlFN Dîï iscqel-l : CSLL ?*SC06. 

s40:EI ErSE 01: iifiaqei=0:CALL IcCO:, 

KO: El 

li 10 IF t.i/O ÎHEH 1 100: boucle atte >Pi 

rre déroulement manche 

1130 * acte: chrono et eaiaie les a XI 

ccres * 

il50 CIiCALl SBC06.840:CL5:ChLL 45C -0 

06.I*C0:ircasei=C:GN RREAK 5TGF 

iloO CALl &SF57:FF:».T REMAINiOhCAL >E 

L î<tP54:El:30J!;0 S.200.'20.iO:SDLM! 

1.300.20. 5 0:SOLM) i.i50.2ô. 10: LQCAT 

117. LOCALE :.23: = FINT 5&C(19):60SU ">X 

F.IKT "Score '':LEFTt !r j* ii! .8;:: INFO 

JtVALi5cx*):L0CATE ..24: :: 7:T SPC •: i 

9 ■ : BCSLIB i5?0:NEXT 

1 175 uOCATE 1.24:PRINT "Si ERREUR T 

dans les points E":a$="' :wHILE ai- 
' ; " ; :a»=i*Ê-»:fiE«:if aî= E" OS a*=" 
8° TKEN lOCATE !.24:FR:N' SPC. 19;:" 

V.PRINT SF2:10;::F0R i=i 10 nbj:s 
ci(ii=5c::!i):S0SUB 1590:NEXT:BOTO 1 

1130 coup=coup+l:IF f m=0 AND coup: wJ 
ccum AND âc: v Ti^AX:5ci(l).ac.ji2) .acj 
.3) .se; i4: .se i ici .sci:6; .sc. v :7: ,s:.' 
SB)} THEM r 0R te=: TO 100 : NEXT: £CTC 

p"0 

1200 * table as scores ûr.ai * >X 
1220 CLS:LOCATE 2.2:Fr!î;" ! * 30GGLE 'A 
- 3CDRE * : ':y=5:F0R : = i Tù nbi:sc«=i1 
AXIscidi ,sc,i ('2)*,sc\: !3) .scj (4i.sc,i ! 
5J.scji6),scj(7),sc.j!S!) 
1230 bloc=0:FOR 11=1 TO nb;:lF scj: >v 
:t]=sc;it AMD b!oc=0 THEM .OCATE l,y* 
i;i-!i»2;: i3 RÏST USINE r;:::-R:;<7 

- ";LEFTt(n.i*(ilJ ( 10)i:L0CATE 15. v 
1 1 ! i- i ) «2! : PRINT" ( ; se i ( i 1 i ; : se j i . i 1 
i=0: bioc=i 

1240 NEXT a 1 . i : LOCATE 1.22:PRINT"No >1 
rabre de coups ":cG*up::fin=û:L0CA7E 
!.24:INP0T "UNE AUTRE 0/N":a$:IF A* 
="0" OR a*="o" then Un=0:coup=0:EF 
ASE n;*:G070 820 ElSE «ODE 2:END 



1260 * orientation lettre * ;'B 
12S0 «l=ASC:ces*i:.a7:;-64 Uit 

iiqO 

1310 senslo::;=senl k 7r 

!32( IF seni=: 7 fiE™ 1460 * 

OR biî^O ~û 1 

T. ii : de.'' z -EE> 'Sirha wii+bit; *,Y 

128:G03u'E .4=0 

1360 ot=l:lF der -v THE» de"=der-é. K 

■1: ETE 12 14=0 

1370 a t~2: 'F ce - ' -32 r AEN der-der-T 03 

2:B0SLiE 14?( 

1360 bt=3:IF cer>=14 THEN der=der-i "Or 

6:G0SL8 1490 

i 390 bt=4:IF cer "8 "r<lï\ de-'-ce— 3: 'iD 

GOSUEi 1490 

1400 b t=S: I" es- =4 THE:, de"-ce- ; ; .0!" 

30S03 14=0 

1410 bt=q:lF car =2 THEN der=oer-2: ii 

GCSu'B 1490 

1420 bt=7; IF de-"-". THEn S33L5 1490 >Afl 

1430 NEX7 . 

ii.a(:!:!B~ 

1453 6070 1470 

1460 FOR :=0 70 7:s-FEEt ;a.p~: wi Zf 

tziiFOKE ces! îd':)+i-i. :: : iEa7.2j7 . 

470 

1470 RETIFS 

1490 * letre en biais * 

15:0 i~ sen;-7 r 'r£\ aie. -a z: -'. : " 

bti+2 :7-bit 

t;+: bt 

1330 RE'URK PO 

1550 « ec-an jeu an-aa * WËË 

1570 uCCATE o.1:F : :n" » BOOSlE *": -'HJ 
LOCATE 7.4:FHII*r"Mi ck!P5":lOCA7E = 
,o:PRISI 0973 " ::c.= 
1580 GRAPHICS FE\ i;FLC7 174.2°fc:ÔR .-kl 
AU 430.2%:DSAif 430, 102:DRA(I 174.10 
2:DRAW 17«.25è:FDR :=!74 70 430 ETE 
<- 64:*.F i.296:DR4*l i, 102: NEXT: FOR 
i=102 "2 2F6 57EF 43:^VE r4.::DR 
A* 47 ; , . ; ,; : - 

;c-; ■" :=1 TO CINT™!<2;:lGlA7E ;NE 
;. :*7 ;=RÎW LEFT*in,!*;p;.5;:L0CA r 
3 .. :*: *2:PRIN7 scj(p):NEX7 
1:7 "= pl=P 70 nb;:uOCATE 15. (=1- -D7 
P+1H5:PRINT LE c 7«(n.iJ(?l).5!:L0CAT 
E I5.((pl-p+li»5)*2:PSINT scupi;:!-' 



IciC RETURH, 
1620 ••••"».•» 

i»iO ;:F iijaqe:=0 T KEK LOCATE 7 



1700 4in=i:0:i EREAr C0M7 : lO'2.A7E 4.2 
5:PF.;MT''DESNIERE =a : -;7:: : E T oRk 

:PAF'ERfil.O:PEM«l.i:PRINT#i." PRE 

continuer et voiria '-e^;e. amai qu 
a pen-oant le ue^ilement de lareole 
a chaque a'-reiPO'j'' ia srite :" 
: ; RINT»1 
1790 PSINTS!.' APPUYEZ OHE tOOC-'E 

;3'7 ;22E 2w.7.20i:. :. 90.4. 25: WINDOS / 
tl.!,8û,:.7:P4FEF«;.;:FE : «;,;:Cl3Sl 
:LOCATE*1.35.2: : R:i::Si. F E S L E" 
1810 FRUIT' PL ;t ';'R;XT" Dana un 1 
aps ce teRPO cetensine par vo^a. il 

a'aaic ce relevé- et ce noter .e 

plus possible de setc. en coco r^r 
t les ieuures sorties par ies ces.' 
: : 'F;NT:PR:NT" HOTE" 
1820 PRINT" "eue les ^iots eu diccic 
nnaire sont autorises (substantifs 
. aciecti ; s. verbes a l'inriniti: e 
t au participe passe;. Sont exclus i 
es noms propres, ies incita; avec spc 
strophe et trait d'union, les 
siaies, ies abréviations, ies eut 
v.iies": 

1330 FFIN7' 1 !?raqfflerts de mots:":FR ; 
1M t :^1'iT : ' FREC:S:ONS":?RIN"" Fou 
r qu un fflot soit vaiabie il tau: : ' 
îPRINT' qu'il ait plus ce deu:; 
lettrea: que ies lettres qui is 

composent soient continues par le 
s cotes ou par ies ançies: que :e iï 
ot ": 

1840 PR;N""Pu!sse être correcterert ; 
"j:PRINT" epeie dans l'orcre ortho 
qraphique des lettres: que dans le 
(Bot la 'lettre d un même de ne soi 




t Pas utilisée aeux fais. :PRiNT:PK 
INI" PRELIMINAIRES" 
1850 PRINT" Chaque .joueur est auni >SX 
de papier et d'un crayon, Select 
mnnez la nombre de joueur (S max 
imum), la position des lettres (or 
Dite ou dans tous les sens), 1s teisi 
ps de .jeu (si -> 240 seconde), n 
ombre de point et nosbre de coup 

pour"; 
1660 PRINT'' une partie. È ':CALL *:BBi8 >PF 
ïPRINTïPRINT" LE JEU":PRINT" Suan 
d tous les .joueurs sont prêt, appuv 
ez une touche. les joueurs examiner; 
t les lettres des des et notant rap 
ideffient les mots qu'ils ont repère. 



1070 PRINF Quand le temps est ecou 
le, ils s'arrêtent d'écrire et Us 
comptent les points. '':PRINT:PRINT" 
LES POINTS": PRINT" Trois formules 

sont possibles. " :PRÏMT; PRINT" Pre 
miere formule: A la tin de la mail 
che, chaque " 
1.880 PRINT !I joueur annonce ses mots 

et après"; 

1S90 PRINT" contrôle il marque les 
points suivantsi^PRlNP Pour to 
ut mot correct de 3 et 4 lettres .. 

, 1 Point l! :PRINT ,! Four t 

out mot correct de 5 lettres ...... 

2 points" 

1900 PRINT" Pour tout mot corrsc 

[■ ii£ ';: isttrSC- ,,,,,.-.-.,,-.,,-.-. 3 P 

oints":PRINT" Pour tout mot corr 
ect de 7 lettres ...,..., 5 

points":FRINT :! Pour tout sot co 
rrect de S lettres ,..,,.,, 

il points" 

1910 PRINT' 1 (Pour les mots commun a 

tous les joueurs le mot peut être 
rayeP:CALL kBB18:FRINT:FRïNT ,! Deu 
xieme -formule: Ne comptent que les 
mots que chacun a ete seul a trouve 
r. Il faut donc éliminer tous le 
s mots notes par au moins deux joue 
urs."; 
1920 PRINT" Ces mots";; PRINT" sont 

.rayes des listes en présence. Il ni 
arque les points pour les mots res 
tants suivant le tableau ci-desus, " 
: PRINT: CALL &BB1S 

1930 PRINT" Troisième formule: (En 
solitaire). Il s'agit de trouver le 

maximum de mots avec ou sans limit 
ation de temps. C'est ainsi que n 



■YB 



avons 






binant les lettres du BGGGLE donne 
en presentation":PRlNT 
1940 PRINT" PRECISlONS^FRlNr 1 Re : 
peter deux fois la fêeme lettre pour 

former un mot est interdit.'":PRlNT 
:PRINT" Supposons C R soient co 
ntiques: Vous n'avez pas le droit 
de former le EU 

verbe R u e R qui utilise inaumen 
t deux foi 
1950 PRINT" le même R^PRINT-PRINT" : 

Heie si Plusieurs -mots, orthoqraph 
les de façon identique, ont une =19 
nificaiion absolument différente, i 
1 ne faut en compter qu'un seul a 1 
a marque. " 
1960 PRINTiFRINT" Par exemple: C R . 

U (vignoble) CRU (pas cuit) C R 
U (yifl CRU (choquant) ne rapport 
ent qu'un point, ce ne sont qu'une 
seul et unique combinaison de letir 
e.":CALL &BSÎ3 
3970 S0SUB 2D70: NINDD^#1 , 17.40,5,24 : 



1980 PAPER#Î , 0:PEN#I , 1 : RESTORE 2010 >UU 
:a=0:FQR 1=1 T0 138 3TEF 2:READ a$. 
b*:PRIHTfl,a*;TAB(14);b$:a=a+i:IF a 
=10 THEN LOCATE 15,25:PRINT"Une tou 
che pour la suite":;CALL &BB18:LDCA 
TE 15.25:PRINT SPC(24);:s=0 
1990 NEXT:L0CATE 5,25:PRlNT"Vouiez >AM 
vous revoir la liste o/n";;a$ ;r,, "^H 
ILE atO"D n AND a*0"N":a*=UFPER*U 
NKEfifrï sHEND: IF a$=' ! 0" THEN CLStl:LQ 
CATE 5,25:PRÏNT SPCiSO) ; :S0TQ i960 
2000 RETURN >EF 

2010 DATA abat, aboi. abot, aère, aérer >VD 
,ana,ane,anee,anet,an5; anus, are, are 
c , arête, arme, arme, armée, armer, arme t 

, ar-ison, arôme, ars. arum, atome , , ba 

1, ban, banat, bans, bar, bars, bas, bat, b 
ate.batee, bâter, bâti, bâton, bâtons, b 
aa,hoite,boitee, bai ter, bon, bons, bot 

2020 DATA céans, cens. cet, cetane, cet >FW 
one,cerat, cran, crâne, cr-aner, cratère 
, création, créât ions, crée, créer, cret 

.crête, cru, crus, , écran, écrans, e 

crou,ecrous,ecru,ecrus,emou ( emu,emu 

s,ere,etai,ete, , ion, ione, ions, i 

ata,ifce,tea, item, ,msat,ffiée,iT!enu 

2030 DATA menus, mer, mère, merou,mero >JP 
us, meta, morne, mors, mou, (nous, mur, mur 
e,fliureë, murer, muret, murs, mus, ,n 



abot, nabote, née, net, nota. note, notée 
, noter, numéro, nus, , orme, orne, or- 
ner, ots.Qtse.ûtsr, ours, , rabot, r 

abote. rabotée, raboter, rat. rate, rats 
e. rater 

2040 DATA r3tio.ration.rations,rea, . 
récréation, récréations, recru, recrus 
. res, res\% remous, retenu, retenus, rum 

en, rus, , sabot, sabots. sabotes. sa' 

noter-, sana.snDb, sur, surate, sure, sur 

et, surets. , tan, taon, taons, tare, 

tares, taro,tee,terce,tercer, tenu. te 

nus 

2050 DATA tiare. toi. ton, tons, tonus, : 

tonsure, tonsurée, tonsurer. ,uns, 

uns, urée, urne. usnee 
2070 '* tracer boggie miniature * 
2090 RESTORE 2I70ï«0DE i:F0R ti=û T ! 
Q 10 STEP 2:READ i*:L0CATE i5HI.2: 
CALL ltA02O,ëi$:NEXT:F0R dx^l T0 là: 
READ wlïREAD swl:B0SUB 1310:NEXT 
2100 GRAPHICS PEN 2:INK 2, 26: PLOT B . 
7,296: DRfiU 215,296:DRAN 2I5,102:DRA 
H S7,102:DRA& 87,296:F0R 1=3? TQ 21 
5 STEP 32:MûVE i, 296: DRAW i.!02:NEX 
T:F0R 1=102 T0 296 STEP 4B: MQVE 87, 
ï-.mm 215,i:NEXT 

2110 PEN 1 : Ï.NK l.lB:ddd=0:FGR y=l T 
4;F0R x=i T0 4: ddd=ddd+l: LOCATE 5 
+<x*2),!y*3;+5;i$=CHR*C230+ddd):CAL 
L &A02Û,5i$:NEXT x,y 
2120 GRAPHICS PEN 3:INK 3,6:ddd=0:F 
OR y=270 T0 126 STEP -48::F0R x=102 
Tu 198 STEP 32;ddd=ddd+i;ÎF sens(d 
dd)=I THEN xl=x-i4:x2=x+i4:vl=y-22: 
y/2=yî ELSE IF sens(ddd}'=2 THEN vA=y. 
-14:x2=x+i4:vi=v*-22:v2=vl 
2130 IF sens(ddd)^3 THEN KJCZ=!:J(i=* . 
-14:x2=xiïyi=y+22:y2=y-22 ELSE IF s 
ensiddd)=4 THEN wxz=i:xi=x+14:x2=xl 

2140 IF wxz=! THEN MOVE xl.yhDRAW 
x2,y2:IF sens(ddd)=3 THEN xi=xl~2:x 
2=xl ELSE IF sensidddM THEN xi=xl 

2150 MGVE xi,yl:DRAK x2.y2:IF sens( 

ddd)=l THEN MQVE xl,yl+2:DRAW ï;2,y2 

+2 ELSE IF sens(ddd)=2 THEN MQVE xl 

,yi-2;DRftW x2,y2-2 

2160 NEXT:NEXT:RETURN 

2170 DATA B,D,S,S,L,E, 18,1,5,1,20.4 

,9,1.3,1,5,3,1,1,15,1,13,1.18,2,14, 

1.2.3.15,2.21,1,19,3,1.1 

2190 '* clear input * 

2210 a$= ! '!":WHILE aî-0- ini :a$-INIŒY$: 

MBffis RETURN» 



22 



D 



u 




;®? 



•************+**-h***^*+- 



90 HuDE 

100 SYNBDL flFTER . 

Î10 SYMBOL 240.0/ 

120 SYMBOL 241.0. 

6. 106.0 

130 SYHBOL 242.0.! 

0.174.0 

140 BYKBÛL 245,0.: 

150 SYMBOL 244.0.: 

S. 138,0 

160 SYMBOL 245.0,: 

0.233,0 

170 SYMBOL 246.0,: 

7,233,0 

ISO SYMBOL 247.0. 



,13 >HD 

. 13 >Hn 
.13 >HL 



190 INK 0.0: INK 
3e INK 4.6,1;» I 
,25:1!* 8,26: INK 
EED INK 30.30 
■ 200 PAPER 0:PEN . 
210 MINDOW «2.1,: 
:CLS#2 



,10: INK 2. 9: INK 3. 
.24: INK 6. 18: INK ; 
9,21:INK iO,1.6;SF 



ENERGIX 



Un homme seul dans un 
labyrinthe avec une lampe 
torche à la main part à la 
recherche des piles 
nécessaires au bon 
fonctionnement de son 
ustensile lumineux. 



=80 T0 là 



,l;unH 



230 FOR x=4b'0 Tu 560: PLU :■ x,s0 = l:Dh >-:N 

m, 0.200:NEÏT 

240 y=60:F0R :;-iàO 10 IBOjPLOT x.y; >ËY 

DRAW; 0.200:y=y+i:NEXT s 

250 y=6O:F0R «=560 T0 5B0:PLOT x.v: >EH 

DRAW 0,200:y=y+l:NEn « 

260 FOR x=S2 TO 158:PL0T x,264,3:DR >TG 

AiM25.350:NEXT 

270 FOR «.=482 TO 55B:FLdT x,264,3:D >UQ 

RBB 525."35&.'NÉXT 

280 PLÛT 125.350:DRAN 180. 2S0 i-iti 

290 PLOT 525. 350: IRA» 580,280 >Wv 

300 FLOT 50,60.0:DRftlâ 160,60;DRAiy 1 >SV 

60,260 

310 MDVE 160.6û:l!RAW 1S0,80:DRh» 18 >FN 

0.280 

320 PLOT 480,60.0:DRAIii 560.6û;DRfW >HX 



i MOVI 



" : 



340 PLOT 80,60.0:DRAHR 0.200: PLOT 4 )VN 

80.60:BRftSR 0.200 

350 FOR y=B0 TO 220:FL0T 184.y,l:DR >RB 

Ai* 294,0:NEXT 

360 PLOT !80.80,0:DEAMR 300.0 >m 

370 FOR «=300 70 36û:PL0T x.80,3:DR >ûk 

ÀWR 0,80:NEX T 

380 PLOT 132.240. 3 : DRAW 478.240 >Xfi 

390 FOR «=202 TO 478 STEP 20: PLOT « >ZW 

,240:DRÀWR 0,-40:NEXT 

400 FOR «=240 TO 420:PL0T «,242,!:D >RH 

RANR 0.80:NEXT 

410 FOR «=260 TO 2B5:PL0T x, 265.0:0 >RA 

RAMR 0:35:NEXT 

420 FOR «=315 TO 340:PL0T x.265.0:D >RU 

RANfi 0,35:NEn 



I faut espérer que le héros n'a 
pas peur du noir car la qua- 
lité des batteries n'est pas 
extraordinaire. Le mode 
d'emploi est contenu dans le listing. Le 
premier listing sera intitulé ENERGIX, le 
second ENER-JEU. 



WDavid 
CAROFF 




RAWR 0,35:NEXT 
440 FOR x=220 ' 
RANR 0.30;NEXT 
450 ROR x=103 
RANR 0.35:NEXT 



PLI 



:NEXT 

RAW 300.1 60 :DRAIs : 



=t« 4:PHI: 
=EN 4:PRi- 



•J5U.I6 

480 FOR 3=300 TO 360 3T 
.80.0:DRANR 0.80:NEXT 
490 PLOT 300iS0,0:DRAW 
60.80:BRA« 310.0 
500 xi=204:FQR «=304 T0 
80.6:DRÂiii xl.0:xl=xl+i. 
510 L0CATE 3, 13:PEN 4: F 

"E":;PEN 10:PRINT 'if: 

:, t"::FEN lû:PRINT "8": 

"B"::PEN 10:PRINT *I"::PEN 4;PRINT 

"X";:FEN 1 : PAPER 
520 PLOT 30. 200. 5: PLOT 50. 300: PLOT >Dv 
10. 380: PLOT 8û.310:PL0T 200.290;PL0 
T 300. 371: PLOT 400, 380: PLOT 480.300 
:PL0T 510,390:PL0T 600,200:PL0T 620 
,385:PL0T 110.360:PLOT 130,375:PL0T 

160.358 
530 FOR ,X=ù T0 360 STEP i.5:BËS:0RI >WN 
GIN 590. 360: DRAW 3I«(X)*30.C0S(X)*3 
0.7:NEXT;0RI6IN 0,0 

540 FOR «=-180 T0 180 STEP 4:DE6;0R >FG 
ISIN 570,360:DRAN SIN(xi*20.COSixi* 
20,0: N'EXT 

550 LÛCATE 2.1:PEN B:PRINT CBRM240 >8Z 
i+CfiR$ï241i+CHRt(242j+CHR*i243i;L00 
ATE 7,2:PEN 9:PRINT CHR$!244)+CHR$! 
245) +CHR* ( 24é > +CHRt (247) 
560 R0M"!ENER.JEU" >NU 




+**+<****, 



m.""»hHm 



CFl 464-664-6126 



* >RB 



* 

120 ' >RD 

130 '**#*************************** >RE 

* 

140 '« INITIALISATION * >RF 

150 '****************************** >RG 



^ 270 SYMBOL .103.0.120.64,88.72,120,0 

280 SYMBOL 104.0,68.68.124,66,68,0, 

290 SYMBOL 105.0.56, i6. 16. 16. 56, 0.0 

300 SYMBOL 106,0.28,8.8.3.120.0.0 
310 SYMBOL 108.0,64. 64,64.64, 124.0, 


330 SYMBOL 110,0,100,84.76.68,68.0, 

340 SYMBOL 111.0.124,68,68,68,124,0 

,0 

350 SYMBOL 112.0,124.68,124,64,64.0 

360 5YMB0L 113,0.124.68,124,4.4,0,0 

370 SYMBOL 134,0. 124, 68, 120, 68,68.0 

,0 

380 SYMBOL 1 15.0, 124,64. 124. 4. 124,0 

390 SYMBOL 116,0,124,16.16.16,16.0. 



400 SYMBOL 117.0,68.66,68,68,124.0, 



410 SYMBOL 118,0,68.66,68.40,16.0,0 

420 SYMBOL 119,0,84,84,64,84.40 
430 SYMBOL 120,0,68,40,16,40,68,0.0 

440 SYMBOL 121,0,68.40.16,32,64 
450 SYMBOL 122.0,124,8,16.32,124,0, 



160 CLEAR 

170 tablFistsiF45;son=!5pi=! 

180 MODE J;INK 0.0; INK 1,6: INI; 2.24 

:INK 3,20:B0RpER Os PAPER 

190 EW î, ll^-l,"25s ENT 1.9,49.5,9,- 

10,15 

200 SYMBOL AFTER 97 

210 BYMBDL 97,0,124.68,124.68.68.0, 



220 SYMBOL 98,0,112.72,112.72,112,0 >CA 

,0 

230 SYMBOL 99.0,60,64,64,64,60,0,0 >AJ 

240 SYMBOL 100.0.112,72.72.72, 112,0 >CQ 

250 SYMBOL 101.0,124.64,124,64,124, >DJ 

0,0 

260 SYMBOL 102,0,124,64,112,64,64,0 >CB 

,0 



460 SYMBOL 251.28,28.72.62,9,20,36. >DH 

68 

470 SYMBOL 250,56,56,18.124.144.40. ;FV 

36,34 

480 SYMBOL 253,255,0,32,255,255,255 >JC 

,255,255 

490 RESTORE >HH 

500 SOTD 1200 >EF 

510 'M**************************** >R8 

520 '** DESSIN TABLEAUX ** >RH 
530 'M**************************** >RJ 

540 nr=INT(RND«12)+2 >PN 

550 IF tabi>2 THEN tabl=l: tsl=tsl-l >E« 



560 IF tabi=l THEN RESTQRE 820 >XB 

570 IF tabï=2 THEN RESTORE 980 >YH 

560 ORI-SIN 0,400:p=0:5c=û:;;=8:y=14 >LM 

:ts=tsi:MODE 1:INK 0,0: INK 1,6: INK 



2.24: INK 3,20:BORDER 0: PflPER 

590 READ a.G.pn, I,c: IF a=-l THEN 60 >Ry 

ELSE LOCATE a.oiPEN pn:FRI«iT STRI 

NBIil,cï:BOTO 590 

600 EVERY 50.1 BOSUB 1170 >RH 

610 PEN 3:L0CATE 3,8:PRINT"E":L0CAT 'M. 

E 3.10:PRINT"N":LGCATE 3. 12: PF;INT"E 

":LOCATE 3,14:PRINT"R":L0CÀTE 3.16: 

PRINT"8":L0ChTE 3, 18: PRINT"!": L0EA7 

E 3,20:PRINT"X":0RISIN 0.400:PLOT 2 

5,-107. 1 : DRAWR 0. -220: DRAWR 30.0:DR 

AWR 0,220:DRAWR -30,0 

620 LOCATE 9,25:PEN 2:PRINT CHR*(16 >UE 

4i::PEN 3:PRINT" d.caroff ":PEN 2:L 

OCATE 22,25:PRÏNT " juillet 19B7":M 

OVE 0.-2:DfiAWR 639.0.3: DRAWR 0.-399 

:DRAWR -639,0:DRAN 0.399 

630 FLOT 108,-14. 1:DRAMR 170.0:DRAW >HP 

R 0,-20:DRAWR -170.0:DRAMR 0.20:PL0 

T 334,-14:DRA«R 1B0,0:DR«R 0.-20:B 

RAWR -180,0:DRAWR 0,20 

640 LOCATE 8,2:PEN 3:PRINT USINE "s >FB 

iles=> ##";p;PEN 1: IF p=ÎS THEN 174 

ELSE 690 

650 SOUND 1,478,1, 4.0, 0.10:PEN !:L0 >XC 

CATE K,y:FRINT CHR* (24?) : PEN 2:RETU 

PJl 

660 'm*************************** >TC 

670 '** BOUCLE PRINCIPALE ** >TD 

680 '******#***********»*+****■##*** >JE 

690 ORIGIN 0,400:j=JOYÎOi >U6 
700 IF KM THEN 720 ELSE c=TEST((ï >YA 
*!6i-S.-i!y-l)*16-8il:IF c=2 THEN G 
OSUB 650 ELSE IF c=i DR c=3 OR c=0 
THEN FOR t=I TO BO:NEXT:LOCATE K,y: 
PRIMT ■ ":y=y-l: LOCATE s,y:PEN 1 : PR 
INT CHR*(249):PEN 2: IF sorpl THEN S 
OUND 4,142,3,5 

710 IF c=î THEN p=p+1:G0T0 640 >XP 
720 IF j<>2 THEN 740 ELSE c=TEST(!s >BE 
*i6i-6,-((!y+ii*16!-8)):IF c=2 THEN 
GOSUB 650 ELSE IF c=3 OR c=0 OR c= 

1 THEN FOR t=l TO 80: NEXT: LOCATE ;:, 
y:PRINT ' ":y=y+l: LOCATE s.y.PEN 1: 
PRINT CHR* (249): PEN 2: IF son=l THEN 

SOUND 4,142,3,5 

730 IF c=i THEN p=p+l:BOTD 640 >XR 
740 IF j<>4 THEN 760 ELSE c=TE5T(i;< >TB 
-l)*16-B,-(y*16)+8):IF c=2 THEN G05 
UB 650 ELSE IF c=3 OR c=0 OR c=l TH 
EN FOR t=l TO 80;NEXT:L0CATE s,y:PR 
INT " ":î:=s-1:L0CATE >:,y:PEN 1:PRIN 
♦ T CHRt!251i:PEN 2:1F son=l THEN SOU 



24 






I— 




dit 



nd 4.143.3.3 

750 IF c=! THEN p=p4i:BOTO 640 
760 i? ji>8 THEM 780 ElEE c=TESTl! 
tli»lA-8.-iy*16)fB)i:.F c=2 THES GIÎS 
UB 65) ELEE IF ;=3 OR c=0 CR c-i TH 
EN FOR t=l TD BO:NEXT:LOCATE x,y:PR 
INT " ":s=x-ti:LOCATE x.y:PEN UPRIN 
T CHR»i250!:PEN I';IF son=l 7HEN SDu 
ND 4,142.3,5 

770 IF c=i THEN p=Pt!:G0TO 640 >XW 

780 S3TG 690 >AES 

790 '*«*#*********+*********■******* TE 

30< « DATAS TABLEAU* »» ' ; ,-' 

;6,1.!.252.9.6\3.'24,144;33,6.1.1.25 
2, "4, r.. 2. 1. 2:2. 7. '. 2.1, 25". 8. 7. 3.1. 
144. 9, 7. 2, 4. 253; 13. 7. 3. 1,144. 14. 7, 2 
.4, 233.18. 7. 1.1. 252. 17. 7. 2. 4. 253. 23 
.7.i.i,252, 24,7.2.4. 253. 28. 7. 3.1. -14 

4. 29. 7. 2. 4. 233. 33. 7. 3.1. 144.34. 7.2. 

330 DATA 7. 3. 7.!. 233,8. 3. 7.1. 144. 9. >YÏ 
B.2. 1.253.10.6. 3, 22. 144. 32. 8,2. 1.25 
3, 33, 8.3, ljl44, 34,8,2, ii253;7..9, 2.1 
.253.8. 9. 3. 1.14,. 5. 9. 2. 1.233. 10. 9. 3 
.1.144,1 1,9. 2, 4. 233. 15. 9. 3,1. 144.1o 
. 9. 2, 4, 232. 20, 9. 3.2.144.22.9.2. 4. 25 

3.26. 9. 3. 1.144. 27. 9. 2. 4. 233. 31. 9. 3. 
1.144 

840 DATA 32.9.2.1.253.33,9,3,1.144. ,Ni 

34. 4. 1.1.253. 7. 10. 2. 1.223.8.10. 3. 4. 
144.12. 10.1, 1.252. 13. 10, 3.1. 144. 14, 
10. 2, 1.253.15. 10,3, 1.144. 16. 10. 2,1, 
253. P. lu. 3. 8. 144, 25. 10. 2. 1.253. 26. 
10, 3. 1.144. 27. 10. 2. 1.253, 28, 10. 3.1. 
144.29, 10, 1.1, 252, 30.10.3.4,144. 34. 
10.2.1.253 

850 DATA 7.11.2.1.253.8.11.3.1.144. >2 
9. 11, 2. 1.253, 10. 11. 3.1. 144, !i. 11. 2, 
2. 253. 13. 11. 3. 1,144. 14. 11. 2. 1.253.1 
5.11.3.1.144.16.11,2,1.253.17.11,3, 
1. 144. 18. il. 2. 6. 253.24. tl. 3. 1.144. 2 
5.11.2,1.253.26.11.3,1,144.27.11,2, 
1.253.28.11.3,1.144.29,11,2.2.253 

860 DATA 31.11.3.1.144,32,11,2,1.25 >K 
3,33,11,3,1,144.34.11.2.1,253,7.12, 
2. 1, 253, e, 12. 3, 1,144, 9. 12.2. 1,253,1 
0,12,3,8,144,18,12,2,1,253,23,12,2, 
1,253,24,12,3,8,144,32,12,2,1,253,3 
3, 12,3,1, 144, 34(12,2,1, 253, 7, 13,2.1 
,253.8.13,3,1,144,9,13,2,1,253,10,1 . 



3.3,1.144 

670 DATA 11. 13. 2. 4. 233. 13. .3. 3. 1.14 1>C 

4. lt. 13. 2.1. 253. I 7 . 13. 1.1. 232. .8, 17 

2.V.13.2.;. 233,26.13. 3.1. 144. 2', :3 
;2, 4. 253.31, 13, 3.1, 144,-32.13, 2,1. 25 
3. 33. 13. 3, 1,144. 34, 13. 2. 1,253. 7, 14. 
2. 1,253. 8, 14. 3. 3. 144. 11. 14. 2. 1.252 

880 DATA 12,14, 1.1, 252, 13,14. 3, 3, (4 I 
4. 16. 14. 2. 1.253.1". 14. 3. 1.144. 18.14 
.2. 1.233,23.14,2. 1.35". 24. 14.3. 1.14 
4. 23. ,4, 2. 1.233. 26. 14. 7. 3. 144.29.14 
.1.1. 252. 30, 14.2. 1.253. 31, 14. 3. 3. Il 
4. 34. 14. 2. 1.253. 7, 13. 2. 1.257. 6. 15. 3 
.1.14J. 9.15. 2,1, 253. 10. 13, 3. 1.144 
390 DATA 11.15.2.1.253.12.13.3.1.14 . 
4.13,13.2.1. 253,14. 13.3.1. 14i, 15.15 
.2. 2. 253. 17, 15.3. 1.144. 18. 15. 2. 1,25 
3. 23,15.2, 1-.253. 24, 15, 3. 1.144, 25,15 
.2.2.253.27.15.3.1. 144.23.15.2. 1.2: 
3.29.15.3.1.144.30,15,2,1.253,31,15 
,3. 1.144. 32. 15. 2. 1.253. 73. 15. 3.1. 14 
4 

=00 DATA 34. 13.2. 1,253.". 16.2, 1.273 >, 
,8. le. 3, 1.144, 9,16.2, 1,253. 10.16:3, 
1.144. 11. 16, 2. 1.223. 12.10.3. 1.144.1 
3.16.2,1,253,14.16.3,4.144,13.16.2. 
6. 253. 24, 16. 3. 4. i44.2E.lt, 2, 1.253, 2 
9. 16, 3.1. .44,30.1=. 2. 1.253. 31. lo,3. 
1.144. 32. lo.2.1. 253. 73, 16. 3,1. 144 
910 DATA 34.16.2.1.253.7.17.2.1,253 > 
'•8. 17. 3. 1,144, 9,17,2, 1.253,10.17,3, 

3. 144. 13.17.2. 1.253.14. 17.3. 1.144.1 
5. 17. 2. 1.253. 16,17. 3. 1.144. 17. 17. 2, 

1.253. 18.17. 3. 2. 144. 20.17. 2. 2. 233. 2 
2.17 3.". 144.24. 17.2 1.233.25.17,3, 
1, 144. 26. 17. 2. 1.253, 27. 17.3. i. 144 
920 DATA 28.17.2.1.253.29.17,3.3.14 > 
4.32.17,2.1.233,33.17.311.144,34,17 
.2.1.253.7.16.2.1,253.8.18.3.3.144. 
11.18.2.3.253.14,13.3,1.144.15.13.2 

, 1.253,16.18.1. 1.252. 17. 18.3. 8. 144, 

25. 18. 1.1.252.26. 18. 2. 1.253. 27.18.3 
.1.144,23,18.2,3.253.31,18,3.3,144 
930 DATA 34.18.2.1.253.7.19.2,1.253 1 
, 8. i9, 3. 1.144. 9. 19. 2, 1,253, 10. 19, 3, 
1.144.11.19,2.1.253,12.19.1.1.252,1 
3.19,3.2.144.i5.19.2,4,253.!9,19,3, 
1,144,20.19.2,2.253.22,19,3,1.144,2 
3,19,2.4,253.27,19,3,2.144.29.19.1, 
1,252,30,19,2, 1.253.31, 19,3. 1.144 
940 DATA 32,19,2,1, 253,33, 19,3, i , 14 
4,34,19,2,1,253,7,20,2.1,253,8,20,3 
.1,144,9,20,2,1,253,10,20,3,1,144,1 

\ 1,20,2,1,253,12,20,3,1,144,13,20,2, 



1.253.14, 20. 3. 14. 144. 25. 20. 2. ..233. 
29.20.3,;!, 144,30.20.2: 1.333. 71. ".':. 7 

950 DATA 74. 21'. 2. 1.257. 7. 21, 2.:. 237 

1.144. 11. 21, 2. 1.353. 12. 21. 3. ..14^.1 
3. 21. 2. 4. 752. 17. 21. 7. 1.144. 13.21. 2. 
•i. 253. !-. 21. 3. 1.144. 23. 21. 2. 2. 373. 2 
2. 21. 3. 1.144. 23. 21. 2. 1.2:3. 24, 21. 3; 
1,144. 35. 21. 2. 4. 323.: = . 21, M. 144 
960 DATA 30. 21. 2. 1.253. 31. 21. 3. 1.14 
4. 32. 21. 2. 1.253. 37. 21, 3.1, 144. 3i.2i 

3.22.2. 1.253, 24. 22.3. : . 144. 33. 22.1. 
1. 232. 74. 23, 2. i. 2:3.7. 27. 2. 23. 237 
970 DA7A -1.0.0,3.0 
960 DATA 7. 5.2, 28, 253. ".6. 2. 1;257.3 
,6.1. 1,252. 9. o.3. 34. 144. 77. t.:. 1.23 
2. 34. 6. 2. 1.233.7. 7. 2. 1.237. S, ",7.1. 
144. 9. 7, 2. 1.257, 10. 7. 3. 1.144. 11. ",2 
.;,253.12. 7 .3.i.:i4,:3. 7 .2.4.233.;7 
.7, 3.1, 144. 18. 7. 2, 0.22". 24. ".3. 1.14 
4. 25. 7. 2, 4. 227. 2 : .". 3. 1.144. 30. ".2. 
1.253 

990 BATA 31.7.7.1.144.72.7.2.1.257. 
37.7.7.1.;4a.;i,7.;.:.237. , .3.2.1.2 
57. 8. 6. 3. 1.144. 9. 3. 2.1.233,1k-. 3,3.1 
,144, 11. 3, 2.1. 253. 12. 8,3. 4. 144. 16, 3 
.2,1. 253. 17. 5.3.1.144.13. 8, 2.1. 253. 
19. 3. 3, 4. 144. 23, S, 2, 1.253. 24, 3. 3.1. 
144. 25. 3. 2. 1.257, 2t. 5. 7. 4. 144, 30. 6. 

1000 DATA 31. 3. 3. 1.144. 32. 8, 2. ..233 

.33. 8,3, 1.144. 34. 3. 2. 1.253.7.=. 2.1. 

253. 8,9. 3. 1,144. 9, =,2. 1.253, 10. 9.3. 

1.144. 11, 9. 2.4, 233. 15, 9. 3. 1.144. 16. 

=.2.1.253.17.9.3.2.144.19.9.1.1,252 

.20. =.2. 2. 253. 32. 9. 1.1, 252. 23, 9. 3.2 

,144,25,9.2,1.253.2o.9.3.1.144.27.9 

.".4 ''S 7 

1010 DATA 31.9,3.1.144.32.9.2.1,253 

,33,9,3,1,144.34,9,2,1.233.7,10,2,1 

.253,8, 10, 3. 1.144. 9. 10. 2. 1, 253.10,1 

0.3.3.144,13,10.1,1.252.14.10,2.1,2 

33. 15. 10. 7, 1,144. 16. 10. 2, 2. 252. 18.1 

0.3, 1,144, 19. 10, 2,4. 233, 23. 10, 3.1.! 

44,24,10,2,2,253.26,10,3,1,144,27,1 

0.2,1,253 

1020 DATA 28. 10, i, 1,252. 29. 10, 3, 3,1 

44,32,10,2,1,253,33,10,3.1,144.34,1 

0,2,1,253,7,11,2,1,253,8,11,3,1,144 

,9,11,2,4,253,13,11,3,1,144,14,11,2 

,1,253,15,11,3,4,144,19,11,2,1,253, 



>CQ 



25 



, 1.253,28. Î1.3, i, 144.29, 11,2.4.253 

1030 DATA 33.11.3,1,144,34.11.2,1,2 >C 
53. 7, 12. 2,1, 253.B, 12. 3.2, 144. :^. 12. 
1,1,252,11,12,3,3.144,14,12.2,4,253 
ÀB, 12,3.1, 144.19,12,2,1, 253,22, 12, 
2,1,253,23,12,3.1,144,24.12,2,4,253 

1040 DftTfl 8,13,3,l,'l44,?,13,2,4,253 » 
,13, 13, 3, 5. 144, 18, 13,1, 1,252, 19, 13, 

,24.13,3,5,144,29,13,2,4,253,33,13, 

3,1,144,34,13,2,1,253,7,14,2,1,253, 

8,14,3,1,144.9.14,2,1,253.10,14.3,4 

,144,14,14,2,4,253,18.14.3,1.144.19 

,14,2,1,25' 

1050 DATA 22,14,2,1,253,23,14.3,1.1 >[ 

44,24,14,2,4,253,28,14.3,4.144,32,1 

4,2, 1,253,33, 14.3, 1, 144,34, 14,2. 1,2 

53.7, 15,2, 1,253, 8, 15, 3, 1,144.9, 15,2 

,1,253,10, 15.3. 1,144, 11,15,2,2,253, 

13,15.3,4,144,17,15.2,1.253.18,15.3 

,1, 144, 19,15, 2, i, 253. 22, 55, 2, 1,253 

1060 DATA 23,15,3,1,144,24.15,2,1,2 >l 

53,25, 15,3,4, 144,29, 15,2,2,253,31, ! 

5,3, 1, 144.32, 15,2, 1,253.33, 15,3, 1.1 

44,34, 15, 2, 1,253,7, 16,2, 1,253,8, lé, 

3.1.144,9,16,2,1,253.10,16.3,1,144. 

iï, 16. 2,1, 253,12,16,1. 1,252,13,16,3 

.1,144,14.16,2,2,253.16,16,3,1,144 

1070 MIS 17,16,2.1,253.18,16.3,1,1 > 

44,19,16.2.1,253,22,16,2,1,253,23,1 

6,3,1,144,24.16,2,1,253,25,16.3,1,1 

44,26,16,2,2,253.28,16.1,1.252,29,1 

6.3,1,144,30,16,2,1.253.31,16,3,1,1 

44,32, 16,2, 1,253,33, !6,3, 1,144,34,1 

6,2.1.253,7.17,2.1.253,8,17,3,1,144 

1080 DATA 9,17,2.1,253,10,17,3,1.14 > 

4,11,17,2,1,253,12.17,3,1.144,13.17 

,2,3,253,16, 17,3,1, 144, 17,17.2, 1,25 

3, 18,17,3, 1.144, 19, 17,2, 1,253,22. 17 

,2, 1.253,23, 17,3,1. 144, 24, 17,2, 1,25 

3,25,17.3,1, 144,26, 17.2,3,253,29,17 

,3,1,144,30,17,2, 1,253,31,17,3, 1, 14 

4 

1090 DATA 32,17,2,1,253,33,17,3,1,1 > 

44,34,17,2,1,253,7,18,2,1,253,8,18, 

3, 3, 144, 11, 18,2, 1,253, 12, 18, 3, 1,144 

,13,18,2,1,253,14,18,3,3,144,17,18, 

2, 1,253, 18, 18,3,1; 144, 19, 1B,2, 1,253 

,22,18,2, 1,253,23, 18,3, 1,144,24,18, 

2,1,253,25,18,3,3,144,28,18,2,1,253 

1100 DATA 29, 18,3,1, 144,30, 18,'2,1, 2 >Dh4 



53,31,18,3,3,144,34,18,2,1.253,7,19 

12,19,3, 1,144,13, 19,2,1,253,14,19.3 

,1,144,15,19,2,1.253.16,19,3,1,144, 

17.19.2,1,253,18,19,3,1,144,19,19,2 

,4,253,23,19,3,1,144.24,19.2,1.253 

1110 DATA 25, 19,3,1,144, 26. 19.2. 1,2 : 

53,27,19,3,1.144,28,19.2,1,253,29,1 

9.3,1,144,30,19,2,3.253,33,19,3,1.1 

44,34,19,2,1,253,7,20,2,1,253,8.20, 

3,5,144,13,20,2,1,253,14,20,3,1,144 

,15.20,2,1,253,16,20.1,1,252,17.20, 

3,3,144,20,20,2,2,253,22,20.3,3,144 

1120 DATA 25.20,1.1.252,26.20.2,1,2 : 
53,27,20,3,1,144,28.20,2.1.253,29,2 



0,3.5,144,34,20,2,1,253,7,21.2,1,25 
3.8,21.3,1,144,9,21,2,5,253,14,21,3 
,1.144,15,21.2,4,253,19,21,3.4,144, 
23,21,2,4,253.27,21,3.1,144,28,21,2 
,5,253,33,21,3,1.144.34,21,2,1,253 
1130 DATA 7.22.2.1,253,8.22,1,1,252 . 
,9, 22. 3. 10,144, 19,22. 1,1. 252, 20, 22, 
2.2.253,22.22.1,1,252.23,22,3,10,14 

2,28,253,-1,0,0,0,0 

1140 '********************#******* 

1150 « AFFICHASE temps « 

1160 'm*****»******************+ : 

1170 ts=ts-!:LOCATE 22,2:PEN 3:PRIN ' 
T USINE "te«psr> »##";ts::IF ts=0 T 
HEN GOTO 1690 ELSE IF ?=nr THEN IKK 
2,0 ELSE IF p=nr+4 THEN INK 2.24 
1180 RETL1RN : 

1190 'a**************************** 

1200 '** MENU ** 

i2io 's**************************** : 

1220 CLS:F'EN 2: PAPER OiLOCATE 11,5: : 
PRINT STRTNE» (20,"*") 
1230 FOR v=5 TO 18: LOCATE ll,v:PRIN 
T n #":LOCATE 31,v:PRINT ''#":NEXÏ 
1240 LOCATE 11,18:PRINT SIRINBt», 
"#");LOCfiTE 14,22:PEN 3:PRINT "E N 
E R S I r';LDCATE 14,23:PEN liPRWT 
STRINËSi!3, n =") 

1250 PEN 3:LDCATE 14,3:PRINT"MENU F 
RINCIPAL":PEN îiLQCATE 14,4:PRINT S 
TRINBK14,"-"! 

1260 LOCATE 13,7:PEN 3:PRINT "1-";: 
PEN 1:PRMT " jouer " 
1270 LOCATE 13, 10:PEN 3:PRINT "2-"; 
:PEN 1:PRINT " instructions" 



1280 LOCATE 13,!3:PEN 3:FRINT "3-": >ZV 

;PEN 1; PRINT " son " 

1290 LOCATE 13,!6:PEN 3:PRINT "4-": >RF 

;FEN i:PRINT " niveau de dit+" 

1300 at=INKE¥tia=VALia$):IF a<l OR >NK 

a>4 THEN 130O 

1310 PRINT CHR*i7); M 

1320 IF a*="l" TKEN INK 0,O:INK 1,6 >AC 

:INK 2,24:INK 3,20:B0RDER 0;PAPER 

:ËOTO 520 

1330 IF a*="2" THEN 1390 >PP 

1340 IF a*="3" THEN PEN 3: LOCATE 3, ;YF 

24: INPUT "SON =>!0/Nl :";;■*: IF r*=*0 

" OR r$="o" THEN son=l:8DTû 1220: EL 

SE son=0:SÛTO 1220 

1360 '***************************** >VC 

1370 '*♦ , INSTRUCTIONS ** >VD 

1380 '***#****************#******** >YE 

1390 MODE 1 : INK 0,10: INK 1,26: INK 2 >Wj 

,1:INK 3.15:PEN i:PAPER 2: BORDER 10 

:CLB 

1400 PEN 3:PRINT:PRINT" vous >DK 

voila bien embarrasse. ":SCSUB 1670 

1410 PEN i:PRINT;PRINT" vous êtes >ND 

prisonnier dans un vieu* M :S05UE 16 

1420 PRINT: PRINT" château (peut-et >RY 
re hante !..).": BDSUB 1670 
1430 PRINT:PRINT" pour y voir plus >HT 
clair, vous dispose: ":SQ5UE 1670 

1440 PRINTïFRINT" de piles qui rec >EQ 

haraent votre lampe" iSÛSUB 1670 

1450 FRINT:PRINT" de poche. rainasse >UM 

2 les vite n ,"i60SUB 1670 

1460 PRÎNT:PRINT' ! mais par malheur >EB 

l'une d'entre eiles":GOSUB 1670 
1470 PRINTiPRINT' 1 est mauvaise: l 'o >FC 
bscurite ne se tait ":S0SUB 1670 
14BO PRINT:PRINT" pas attendre: vou >BX 
s devez en ramasser ":B03UB 1670 
1490 PR»IT:PRINT" plusieurs avant >CB 
le retour tant at-":S0SUB 1670 
1500 PRINT:FRINT" tendu de la liai >DF 
ere.":G0SUB 1670 
1510 PRINT:PEN 0:PRINT " >KD 

(BARRE ESPACE) ":60BUB 1670 
1520 WHILE INKEY'JO" ":BEND >»V 

1530 CLB: INK 3,16 >LY 

1540 PEN 1:PRINT:PRINT" vous devez >HN 

avoir pris toutes les":G0SUB 1670 
♦ 1550 PRINT:PRINT" piles avant la t >EZ 
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U 



LATIN 



Ce didactitiel est adressé 
tous les élèves qui ont 
choisi la difficile option 
qu'est le latin. Ainsi, ils 
pourront améliorer leurs 
résultats facilement. 



et éducaîr s 
trois parties ; 



;3rr ; pose de 



les déclinaisons, 

- les verbes, 

- l'ordre des mots dans une phrase. 



^Sébastien MIROUX 




Fait entièrement en BASIC, ce logiciel 
reste néanmoins rapide. 

N.B. : Pour les conjugaisons, il est utile 
de noter quelques précisions : 




bo ENv 1,1,11.2,10.- 


1,4,1.- 


.4 


;vu 


90 SYMBOL AFÏER 12S 






>NR 


iOO SYMBOL 154, 0.0, C 


255,0,0.0.0 


>YD 


iiû INK 0.13:B0RDER 


13:1»; 


,0; INK 


>EC 


2,7:INK 3, 19: PAPER i 


HBBE 1 






120 CLEfiR.-BIH «otttS 


4i:DIM 


$(B4Ï 


m 


130 BN BREAK GGSL1B 1 


290 




;QD 


140 MODE l.-MNDOilftl, 


2,38,3,24:PL0T 


>GU 


0,0,1:MIND0«#2,3,24, 


li,15:il 


ND0WJ3, 




12.28, 24, 24:DRAM 639 


.0:DRAW 


639.399 




iDRAW 0.399:DRA« 0.C 








150 LQCftTE 1 2 . 1 : PEN 


hPRINT 


LATIN 4 


>FB 


e REVISIONS" iLOCATE 


12.2:PEN 2:PRIN ► 



E N E R G I X 

(suite e* fin) 

13c' PRINT:PP1N7" îd '-■- - .= :-a ta" 7 C 

»ine.":G0Su'E 1670 

UELQGES CONSEILS ":HKI Là?: 

1560 Fîfi 3:rF.:NT BFflCEOi .. iSTF.INGî "" 

1590 PEN 3:P"!NT:fSiN7 .se so:n:s EF 
cieus vous aide'": ijli.l- .670 
1600 PR!NT:PEInT . -. - -.£ se- ,-Gh 
ez dans i oDscurite. ':ESSbB 1670 
■610 PRINT:FFIN7" -e les :--azez s -ÏV 
as tous. sinon. .. a :SG51i: i670 
1620 PEN 0:PRiNT:P-:'." 7AE 10;. "A V >RC 
05 JQ¥STîCKS":PRBfïsGDSlï 1670 
1630 PSINTtPRINT '-':... BENNE OKA >AF 
NCE . ..":G0SUE 167 
1640 PEN 3:PP,INT:Paii§T:PRiN7:PRM >LC 

11 obarre :: : -:: ' 

1650 WHIlE iNKEYJO" METO >K2 
lèéO B0T0 16B0 >NF 

1670 SOUND 4, 50,5. :2:FETURN >MT 



lèBO INK 0,0: INK 1,6:1»; 2.24: INK 3 >JK t $120 



20: BORDER 


■.;----.-- : : 30TQ 1220 


1 


1770 r CF 5=6 " 15:LGuATE 12, 


690 M 0DE ■'. 


:PEN 7:_::- T E F.;: r P:: T 


l!C 


T ,! :";LQCATE 32.s:PRINT V:N 


FESCO ...' 


; :._ . -. 145,255,1. 1.1. 




Î7S0 L.0CAÏE Î4,3:FEN irPRÏHT 
PFH /.-.-V'N'' S'aci -n' 



a4="eme a 

i - :0 PEN ?_II : ~: ". . .: : FIl; T "Aj ; :^i ;XF 

:i.:a*:" ?-r.E*. 

1720 LÛGATE 2.20:1». :.1S: : En i- ;c i >FE 

!<7 ''Autre partie !G/W:=E!s 7 

1730 a*=ïnï:E»ï: ÏF aî= 'o ' GF ai="G' .ON 

t nEM 160 ELBE IF a*= n" GP a*='N" T 

HES M0C€ l:0ffi:ELSE 1730 

1740 tabl=tabl^l:pl=pi + l:I%: 2,26,0 5F 

,!2:PRI " BRAVO : ":FE0 :;PF!N7:F 

RÏNT:PRÎN7 attendez un peu":PRIN 

TiPRINF pour continuer... B :FDF - 

. ': 7::::NEXT:3GTO 540 

1750 HSiLOCATE !2.3:PEN 3;PRINT "N >HW 

NEALi DE D;Fe;CULTE':L0CAÎE 12.4:PE 

', [;PRWT STRING*i20,"-") 

1760 PEN 3:LOCATE 12,6:PRINT STRING >GH 

*\20,":"):L0CATE 12,18:PRINT STRING 



1790 LuCATE 14.Î0:FEN 1:PPÎN: '2- : 

:PEN 2: FF; I NT " moyen" 

1800 L0CATE H.:2:PEN hPRINT 3- ": 

:P€N 2:PRINT " difficile" 

1S10 LDGATE 14.14:FEN hPRINT "4~": 

:PEN 2:PRINT " ires difficile 

1320 LûCATE 14.16:PES hPRINT "5-"; 

:PEN 2:PR:N7 " impossible..." 

1830 a*=INKEYi;IP a*0''l" AhD at'O' 

2" AND a*. "3" AMD a*0"4" AS a*0 

"5" THEN 1830 

1840 FR!N T GHP* ; ?: 

1850 IF a$="l" THEN tsl=A0:B0TQ 122 



1360 IF a*="2" THEi 



5:3GTû 122 >8h 



1870 


IF a$= 


'3" 


THEN 


ts 


=40 


GDTG 


22 


BX 


1880 


IF i|= 


'4'' 


THEN 


ts 




GOTO 


22 


>BD 


1890 


IF a*= 


'5' 


THEN 


ts 


=1C 


:G0T0 


22 


>BZ 


*» 
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>XJ 

>UH 

>RE 
>BN 
>RE 
>NK 

m >hl 



T STRING$ilB,CHR*ii54!/ 

160 LOCATE 19. 4: PEN 1:PRINT"HENU":P 

EN 2;LDCATE 19,5:PRINT 5TRING*(4,CH 

R$il54ï> 

170 PEN 1 : LOCATE 10, !0:FRINT "1 DE 

CLINAIBONS.": LOCATE 10. 13:PRINT"2 

ODRE DES MOTB.":LOCATE 10,16;PRiNT" 

3 CQNJU6AISONS.":L0CATE 10. 19:PRIN 

T n 4 RETOUR AU LISTING." 

ISO LOCATE 12,24:PEN 3:PRINT"0UtL E 

ST TON CHOIX ? " 

190 i*=INKEY*:IF i*=" OR i$=". M TH 

EN 190 ELSE i=VAL(i« 

200 IF i>4 OR Kl THEN 190 

210 ON i GOTO 230,é00,930, 1290 

220 ' ***** DECLINAISONS ***** 

230 PAPERti.O:CLS#l 

240 PEN 1 : LOCATE 15,4:FEINT"DEC! 

I SONS": PEN 2;L0CATE 15,5:PRINT STRI 

NG$U2,CHRt!154>! 

250 IF m=20 THEN 440 >MK 

260 h=INT(RND*!84i»+l >PL 

270 RESTORE 460:F0R i=l TO h:READ d >KV 

*:NEXT i 

280 IF mot*Ch> <>"" THEN RESTORE:GOT >HW 

260 

290 !FH+l:«ot$(h)=d$ >PX 

300 PEN ULOCATE 3,10:PRINT "DONNE MU 

MOI :" 

310 PEN#2,1;PAPER#2,0:CLS#2: LOCATE >RB 

3,12:PRINT d$ 

320 LOCATE 3. 14: INPUT "=> ",rt:rt=U >HD 

PPERtirt) 

330 RESTORE >HA 

340 FOR b=l TO ih+84i >NU 

350 READ v$:NEXT b >M» 

360 IF r*=v« BDTO 410 >NC 

370 PAPER#3,0:CLS#3:PEN#3,2:L0CATE# >NA 

3, 12,24:PRINT#3, "MAUVAISE REPONSE": 

SOUND 1,478 

380 PEN 3: LOCATE i,14:PRINT v*:" >TX 

":FOR j=l TO 1 
OOO.-NEXT jjCL5#2:CLS« ' 
390 RESTORE >HB 

400 'GOTO 250 >YH 

410 SOUND 1 , 180,0, 0, 1 : PEN#3, 2: LQCAT >UL 
E#3,15,24:PRINTt3, "BONNE REPONSE" 
420 p=P+l >EE 

430 FOR 1=1 TO 1500'iNEXT 1:CLS#3:RE >TD 
STORE: SOTD 250 
440 CLS#!:L0CATE#1,B,12;PRINT*1,"TA >NH 

NOTE EST DE ":p;"SUR 20,":F0R n=l 
TO 20Û0:NEXT n 

450 GOTO 120 >YJ 

460 DATA LE NOM SINE DE ROSA,LE VOC >RC 

SINB DE ROSA.L'ACC SING DE RDSA.LE 



BEN SINB DE ROSA, LE DAT SING DE RO 
SA.L'ABL SING DE ROSA.LE NOM PLUF: D 
E ROSA,LE VOC F'LUR DE ROSA.L'ACC PL 
UR DE ROSA.LE 6EN PLUR DE ROSA.LE D 
AT PLUR DE ROSA.L'ABL FLUR DE ROSA 
470 DATA LE NON SINB DE BONUS, LE Vu : 
C SING DE BONUS, L'ACC SINB DE BONUS 
,LE BEN SING DE BONUS, LE DAT SINB D 
E BONUS, L' ABL SING DE BONUS. LE NON 
PLUR DE BONUS. LE VOC PL. DE BONUS, L 
'ACC PLUR DE BONUS.LE BEN PLUR, DE B 
ONUS.LE DAT PLUR DE BONUS, L'ABL PLU 
R DE BONUS 
480 DATA LE NON SING DE PUER, LE VOC : 

SING DE PUER.L'ACC SINB DE PUER.LE 

BEN SINB DE PUER.LE DAT SING DE PU 
ER.L'ABL SING DE PUER.LE NOM PLUR D 
E PUER.LE VOC PLUR DE PUER.L'ACC PL 
UR DE PUER.LE BEN PLUR DE PUER.LE D 
AT PLUR DE PUER.L'ABL PLUR DE PUER 
490 DATA NOM SINB DE ÏEMPLUM.VOC SI ) 
N6 DE TEHPLUM.ACC SINB DE TEMPLUM.B 
EN SINB DE TEHPLUM.DAT SINB DE TEMP 
LUM.ABL SINB DE TEHPLUM, NOM F'LUR DE 

TEMFLUM.VDC PLUR DE TEMPLUM.ACC PL 
UR DE TEMPLUM.GEN PLUR DE TEMPLUN.D 
AT PLUR DE TEMPLUM.ABL PLUR DE TEMP 
LUM 

500 DATA NOM SING DE CONSUL, VOC SIN ; 
G DE CONSUL.ACC SING DE CONSUL. BEN 
SINB DE CONSULTAT SINB DE CONSUL.A 
BL SINB DE CONSUL, NOM PLUR DE CONSU 
L.VOC PLUR DE CONSUL.ACC PLUR DE CO 
NSUL.BEN PLUR DE CONSUL, DAT PLUR DE 

CONSUL, ABL PLUR DE CONSUL 
510 DATA NON SINB DE CORPUS, VOC SIN ; 
B DE CORF'US.ACC SINB DE CORPUS.SEN 
SINB DE CORPUS, DAT SINB DE CORPUS. A 
BL SING DE CORPUS, NOM PLUR DE CORPU 
S, VOC PLUR DE CDRPUS,ACC PLUR DE CO 
RPUS.SEN PLUR DE CORPUS.DAT PLUF: DE 

CORPUS, ABL PLUR DE CORPUS 
520 DATA LE NOM SINB DE CIVI5.LE VO : 
C SINB DE CIVIS.L'ACC SINB DE CMS 
,LE SEN SING DE CIVIS.LE DAT SINB D 
E CIVIS,L'ABL SING DE CIVIS.LE NOM 
PLUR DE CMS,LE VOC PL. DE.CMS.L 
'ACC PLUR DE CIVIS.LE 6EN PLUR DE C 
IVIS.LE DAT PLUR DE CM5,L'ABL PLU 
R DE CMS 

530 DATA ROSA, ROSA, ROSAM.ROSAE, ROSA : 
E, ROSA, ROSAE, ROSAE, POSAS, ROSARUM, RO 
SIS.ROSIS 

540 DATA BONUB.BONE.BÛNUM.BONI.BÛNO : 
,BONO, BONI, BONI, BONOS,BOI"'JRUH,BGNÏS 
1 , BONIS 



«,PUERIS.PUEf;IS 

560 DATA "E«FLUM. 7 EM?l.^.TEfiF.J v ."E 

MPL:.TEMPLQ.TEi'!FLû. T EMPLA,TE!', : LA,TE 

MFLB. T E'-:PLORUI',-Ei : i;;." v ?.;; 

370 DATA ICSUL. CONSUL, CûNSULE:i,CON 

SULIS.CONSULI.CONBULE.CfJNSULES.CûNS 

ULEB.CûNSijLES.CONSULUM.CBeilBuS.C 

3N5ULIBUS 

350 DATA CORPUS. :Cf?U5. CORPUS. TOT: 

RIS, C0RP2RI . C0RP3F.E . CORFORA , CORPORA 

.CORFORA,CORPûRIJM,CORF'OR!BUS.Cafi-QF 

IBUS 

590 DATA CIVÏS.CIvIS.CÏVEH.CIVIS.CI 

vI,CIVE.C;VES,CIVES,CIVES,CMUM.CI 

VIBUS.CMBUS 

600 ' ***** ORDRE DES MOTS ***** 

610 p=OsCLB#l 

620' BOSUB 870 

630 PEN ULOCATE 2,S:PRINT"ETABLI3 

LE CLASSEMENT:": PEN 2:L0CATE 2,9:PR 

INT 3TRINôJ(21.CHR$!154)i:PEN ! 

640 LOCATE 9.11:INF'UT "LE ".o$ 

650 o$=UPPERJ!o»! 

660 IF ot="SUJET OU ATTRIBUT" OR oi 

="SUJET-ATTRSBUT" OR o$="SUJET OU L 

'ATTRIBUT" THEN BOSUB 900 ELSE SOSU 

B 910 

670 LOCATE B, 13: INPUT "L'".ot 

680 o$=UPPER*(o*> 

690 IF o$="APOSTROPHE" THEN BOSUB 9 

00 ELSE BOSUB 910 

700 LOCATE 8, 15: INPUT "LE ".ot 

710 ot=UPPER*lo*î 

720 IF ot="COMPLEMENT D'OBJET DIREC 

T" OR a$="COB" THEN BOSUB 900 ELBE 

BOSUB 910 

730 LOCATE B,!7:INPUT "LE \o* 

740 ot=UPPERtioti 

750 IF o(="COMPLEMENT DU NOM" DR o» 

^''COMPLEMENT DE NOM" THEN BOSUB 900 

ELSE BOSUB 910 
760 LOCATE 8,19:INF"UT "LE ".o$ 
770 o$=UPPER*io« 

780 IF o$=" COMPLEMENT D'OBJET SECON 
D" OR o*="C05" THEN BOSUB 900 ELSE 
BOSUB 910 

790 LOCATE B, 21: INPUT "LE ",ot 
800 o$=UPPER$(a») 

810 IF a*=" COMPLEMENT CIRCONSTENCIE 
L" OR o*="CC" THEN BOSUB 900 ELSE B 
OSUB 910 
820 CLSil:L0CATE#l,B,12:F'RINT#I,"Tfi 

NOTE EST DE ";p;"SUR 6.":F0R n=l T 
rO 2000:NEXT 



28 




830 IF p=6 THEN SE" HE E1SE 840 >YL 
840 CLSKhGOSUB S70:F& ULQCATE 14 >DN 
,7:PRINT"C0RRECTiON r ; : D, ::L0CaTE i 
4,8:PRINT STRINS$u;.I- : ï 154)1 :PEN 

1 
B50 LGCATE 9,ll:PRWI"U E.2E7 OU A >NX 
TTRIBUT":LOCATE B.iSîHUKrL'APOSTR 
0PHE";L0CATE 8, 15:PRBIT1E ZOD'iLOC 
ATE 8, 17:PRINT"LE CtmBBIT DU NOM 
"iLOCATE B,19:PRINT"LE CCShLOCATE 
B,21:PRINT"LE CQNPLBHG CIRCONSTEN 
CIEl":L0CATE Ï6,25:PRINT "[ESPACE]" 

860 IF INKEYS=" " THEN El": 120 ELS >EC 

E B60 

B70 PEU hLOCATE 3,4:F=: ." "Z-t DE >KZ 
S MG^E DANS LA PHRASE LATDE-:PEN 2 
:LQCATE 3,5:PRINT STRÏNE5 B6.CHB(1 
' 54J1 
BBO PEN 1 : LDCATE 2, 11:== I -~ --- 1er: >PB 
":LO r -"E 2,!3:PRINT"EK :=; : :.:CATE 
2.13; = -:-.T"EN 3e:":L0CATE :.17:PRIN 
T"EN 4s:";L0CATE 2, I9:PRIhT'EN 5e:" 
:UBHE 2,2i:PRINT"EN te: :FEN 2iL0 
CATE Z,:E:PRINT STRIN6$C7,(HS(i54i 
hLOQHt 2,14:PRINT STRIIGf o.CHRtï 
151 

B90 LCCkTE 2,!6:PRÏNT STRINB è,CHR >CE 
$(iSt :_:CATE 2,iS:PRiS~ E~:ÏNG*(6 
,0» ::- hLOCATE 2,2i;-Z i rr STRIN 
6$C6,ORU54) hLOCATE :,2Z: : 1ÏINT S 
TRI ■■:-! i.CHR*il541):REnHi 
900 SOUK 1, 180,0, O,l:FBK,2:L0CAT >JR 
E#:, .: :-:FRINT#3, "BONNE REPONSE":p 
=P+:; r := 1=1 TO 1000:NEi~ 1:XS#3:R 
ETL= 

91C -¥E7*3.0:CLS#3:PE}»:,:;.0CATE# >XY 
3,;l Z-: r: :NT#3, "MAUVAISE =£FONSE": 
BOU I ..-":FOR j=l TE lOOOiNEXÏ i: 
CLE=::=£~JiN 
92! ***** CONJUGAISONS ***** >T8# 



930 PAPER#!.0:CLS»1 ÏNT 

940 PEN hLOCATE 15,4:PRINT"C0NJUGA >XK 

ISONS":PEN 2;L0CATE 15,5:PRINT STRI 

HG$(12,CHRSi!54)i 

950 IF v=20 THEN 1120 >NP 

960 hh=INT!RND*{84»+l >8H 

970 RESTORE 1140:F0R .j=! TD hhiREAB >MY 

n$:NEXT j 

980 IF rtihhiO"" THEN REST0fiE:6OTG >FG 

960 

990 v=v+i:-ftihh)=wt >NA 

1000 PEN hLOCATE 3,!0:PRINT "TRADU >HC 



1010 F'EN#2,!:PAFER#2,0:CLS*2:LDCATE >TU 
3,12:PRINT w$ 

1020 LOCATE 3, 14: INPUT ■=> ",rv$srv >TP 
$=tPPER* irv*! 

1030 RESTORE 1140:F0R a=l TO Chh+84 >VE 

hREM w*:NEXT a 

1040 IF rvt=vv$ THEN GOTO 1090 >U 

1050 FAPER#3.0:CLS#3:PEN#3,2:L0CATE >0T 

#3, 12, I4:PRINT#3, "MAUVAISE REPONSE" 

: SOUND 1.47B 

1060 PEN 3:L0CATE 6,14:PRINT vvt:" >AÏ 

1000: NEXT is:CLS#2:CLSt3 

1070 REB"RE 1140 >LN 

1080 SOTO 950 >FJ 

1090 SOUND 1, 180.0, 0,1§PE»3,2:LOCA >VK 
TE#3,17,24:PRINT#3, "BONNE REPOSE" 

1100 !■=-.-: >KH 

Ul( -"""- ï 1=1 TO 1500:NEXT U:CLS#3 >XU 

::: :.e=::locate#i,b,12:PR!nt«i,"t >ud 

A NOTE EST DE ";p;"SUR 20,"; FOR nn= 

1 TO 2KC:NEXT nn 

1130 6DT0 120 >ED 

1 142 DftTfi JE SUIS.TO ES, IL EST,NOUS >LE 
SDHMES.VOUS ETES, ILS SONT, JE PEUX, 
Tu : e.^,:l PEUT, NOUS POUVONS, VOUS P 



fOUVEZ, ILS PEUVENT 

1150 DATA J'AIME, TU AMES, IL AIME,N >QS 
DUS AIMONS.VOUS AIMEZ, ILS AIMENT. J 
AVERTIS,™ AVERTIS, IL AVERTIT, NOUS 
AVERTISSONS, VOUS AVERTISSEZ, ILS AVE 
RTISSENT 

1160 DATA J'ETAIS.TU ETAIS, IL ETAIT >0H 
.NOUS ETIONS, VOUS ETIEZ, ILS ETAIENT 
,JE POUVAIS,™ POUVAIS, IL POUVAIT, N 
OUS POUVIONS, VOUS POUVIEZ, ILS POUVA 
IENT 

1170 DATA J'AIMhIS.TU AIMAIS, IL AIM >0J 
AIT.NOUS AIMIONS, VOUS AIMIEZ, ILS An 
AIENT, J'AVERTISSAIS,™ AVERTISSAIS, 
IL AVERTISSAIT,NOUS AVERTISSIONS, VO 
US AVERTISSIEZ, ILS AVERTISSAIENT 
1180 DATA JE SERAI, TU SERAS, IL SERA >ZU 
,NOUS SERONS, VOUS SEREZ, ILS SERONT, 
J'AIMERAI.TU AIMERAS,™ AIMERA.NDLB 
AIMERONS, VOUS AIMEREZ. ILS AIMERONT 

1190 DATA JE FUS.TU FUS, IL FUT.N0U3 >0T 
FUMES, VOUS FUTES, ILS FURENT, J'AIiiA 
I,TU AIMAS,IL AIMA, NOUS AIMAMES, VOU 
S AIMATES, ILS AIMERENT 
1200 DATA J'AVAIS ETE.TU AVAIS ETE, /OE- 
IL AVAIT ETE,NOUB AVIONS ETE, VOUS A 
Vltl ETE, ILS AVAIENT ETE,'J' AURAI ET 
E,™ AURAS ETE.IL AURA ETE, NOUS AUR 
ONS ETE.VOUS AUREZ ETE, ILS AURONT E 
TE 

1210 DATA SUN, ES.EST.SUMUS, E3TIS.3U >0B 
NT , POSSUM, POTES , POTEST , POSSUMUS , POT 
ESTIS.POSSUNT 

1220 BATA AMO,AMAS,AMhT,AMhMUS,AMAT >AH 
I S , AMANT , M0NE0 . MONES. MONET, MONEMUS , 
MONETIS,MONENT 

1230 DATA ERAM,ERAS,ERAT,ERAMUS,ERA J-AM 
T IS , ERANT , POTERAM , POTERAS , POTERAT , F 
0TERAMUS,POTERATIS,PBTERANT 
1240 DATA AMA8AH,AHABAS,AMABAT,AMAB >VP 
AMUS, AMABATIS, AMABANT, MONEBAM, MONEB 
AS , MONEBAT , MONEBAMUS , MONEBAT I S, MONE 
BANT 

1250 DATA ERO,ERIS,ERIT,ERIMUS,ERÎT >JU 
IS,ERUNT,AMABO,AMABIS,AMABIT,AMABIH 
UB,AMABITIS,AMABUNT 

1260 DATA FUI,FUISTI,FUIT,FUIMUS,FU >EA 
ISTIS,FUERUNT,AMAVI,AMAVIST1,AMAVIT 
,AMAVIMUS,AMAVISTIS,AMAVERUNT 
1270 DATA FUERAM,FUERAS,FUERAT,FUER >KU 
AMUS, FUERATIS, FUERANT, FUERO,FUERIS, 
FUERIT,FUERIMUS,FUERITIS,FUERINT 
1280 ' ***** CHOIX No 4 ***** >YD 
1290 INK 0,0:BORDER 0:1NK 1,26:PEN >8F 
#1:M0DE 2:LIST» 



ATTENTION NOUVELLE VERSION 



TELECHARGEMENT ; MODE D'EMPLOI 



Le téléchargement est une opération aussi simple 
que l'indique son nom. Il s'agit de recevoir di- 
rectement, chez vous, des programmes. Pour 
cela il faut disposer de très peu de matériel : un Ams- 
trad bien sûr, un Minitel, un câble spécial et un logi- 
ciel de réception. 

Les manipulations sont réduites : Il faut brancher le 
câble sur la sortie imprimante du CPC, puis l'autre 
extrémité est connectée à la prise péri-informatique 
du Minitel. Voilà il ne reste qu' à allumer votre Ams- 
trad puis votre Minitel. Il faut ensuite composer le 36 
15 et entrer le code : ARCADES. Arrivé à ce niveau, 
un menu vous proposera de choisir entre le 
téléchargement sur IBM ou sur Amstrad. Votre choix 
se portera sur le CPC. Une liste de programmes 
apparaîtra alors. Vous pourrez choisir le téléchargement 
ou les renseignements sur un programme, Si vous 
choisissez le téléchargement, vous verrez sur l'écran 
du minitel un message indiquant le temps approxi- 
matif de chargement. Oh vous demandera ensuite 
de lancer ie programme Arcades sur votre Amstrad. 
Le titre du programme va s'afficher avec les indica- 
tions 'Nom du programme' et 'No de block'. Vous 
devez également avoir placé une disquette vierge 
dans le lecteur car Arcades va sauver le programme 
au fur et à mesure de son téléchargement. Si tout se 
passe bien les numéros de block défilent et les mes- 
sages 'reçu' et 'accepté' alternent rapidement. Au 
message 'fin' le programme doit être sur la disquette. 
Il s'agit d'un programme en ASCII. Pour l'utiliser. Il faut 
d'abord le charger en mémoire avec un LOAD puis 
sauvegarder le tout avec un SAVE. Le programme sera 
alors exécutable. 



Pour l'instant vous ne trouverez que des programmes 
BASIC déjà publiés dans CPC. Mais nous comptons 
'étoffer' la liste avec des programmes en binaires et 
peut-être d'autres surprises,.. 




LE CABLE DE LIAISON 

Vous pouvez maintenant commander un câble spécial 
qui se branche sur le port joystick de TAmstrad. 
Les personnes qui possèdent le câble ancienne ver- 
sion (celui du n° 14) doivent savoir que la nouvelle 
version du logiciel Arcades ne fonctionne pas avec 
l'ancien câble, Toutefois ces personnes pourront 
continuer à télécharger avec leur ancien système. 




LA DISQUETTE "ARCADES" + LE CABLE (Nvelle version)* 



Je désire recevoir : - Kit téléchargement pour Amstrad CPC à 98 F 
- Lot de 4 disquettes vierges à 98 F 



Frais de port 



NOM__ 

Adresse 

i Code Postal . 
Date : 



TOTAL A PAYER. 

_ Prénom 



_Ville __„ 
.Signature : 



* Ne peut être vendu séparément 

| Merci d'écrire en majuscules, 

; Ci-joint un chèque libellé à l'ordre des Editions SORACOM. 

Retournez le<s) bulletin(s) ou une photocopie aux Editions SORACOM - La Haie de Pan - 351 70 BRUZ j 
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INFORMATIQUE 

COMMUNICATION 

DIALOGUE 3615 MHZ 



De nouvelles rubriques arrivent 



:.:»: 



~1 



Savoir comment nous joindre, les sommaires, les 
infos... - 



QUESTIONS- 



Une nouvelle façon de poser les questions et de 
voir les réponses faites ! 



œe-rai: /:.,- io ,..-:-;- 



C'est en moyenne ce que vous trouvez sur le 
serveur. De quoi faire votre choix ! 



•ioripami >^^m 



Une manière de correspondre entre vous ou de 
nous laisser des messages. Nos BAL : SORACOM 
- ARCADES - AMSTAR - PC O M PATI BLES - MEGA- 
HERTZ- CPC REDACT - ASTROLOGIE PRATIQUE 



ZH 



En direct, vos questions, vos idées et suggestions 

Il 






Certains revendeurs français disposent d'un accès 
gratuit pour leurs promotions 



La rubrique sur nos productions avec la possi- 
bilité de commander 



:mP:my:V;£c':rpmi£ 



Désormais vous trouverez sur le serveur les 
nouveautés diffusées par cette société 



L'horoscope 1988 mais aussi depuis peu le men- 
suel du 15 du 15 du mois 



Au téléphone, 15 minutes coûtent en moyenne 55 francs 
Par minitel. Il vous en coûte pour le même temps 1 5 francs 



LE BON CHOIX 3615 MHZ NOUVELLE VERSION 



